Question

Решить задачи:
1. Найти сумму всех трехзначных чисел кратных 7
2.​ Найти значение переменной а в результате выполнения программы
var a, k: integer;
begin
a:=5;
for k:=3 to 6 do
a:= 2*k+a;
writeln (a);
end.

Answer 1

Задание № 2:

program Project1;

var a, k: integer;

begin

a := 5;

for k := 3 to 6 do

a := 2 * k + a;

writeln(a);

readln;

end.

// 41

Задание № 1 :

program Project1;

const n = 999;

var i, summa: integer;

begin

writeln('Найти сумму всех трехзначных чисел кратных 7');

writeln;

for i := 100 to n do

 if (i mod 7 = 0) then summa := summa + i;

writeln('Сумма всех трехзначных чисел кратных 7 равна ', summa);

readln;

end.