Регистрация
Arina0557
20.07.2022 19:42
Информатика
Есть ответ 👍

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

184
398
Посмотреть ответы 2

Ответы на вопрос:

kasimova20001
kasimova20001
4,4(43 оценок)

Задание № 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.

bestaminova111
bestaminova111
4,7(31 оценок)

var a,i,s,tmp: integer; begin cls;

readln(a); while a < > 0 do begin s: =s+a; readln(a); end; writeln(s); end.

var i: integer; begin cls; i: =0;

while i < = 10 do begin if (i mod 2 < > 0) then writeln(i); inc(i); end; end.

Популярно: Информатика