Предмет: Информатика,
автор: Настя3982
написать программу которая подсчитывает сумму натуральных чисел кратных 3
Ответы
Автор ответа:
0
Program Chisla;
Var A,B:integer;
Begin
i:=1
From i 1 to 10 do
Writeln ("Введите число");
Readln (A);
If (A mod 3) - 0 then B:=A+b;
Writeln ("Сумма -" ), B;
end
Var A,B:integer;
Begin
i:=1
From i 1 to 10 do
Writeln ("Введите число");
Readln (A);
If (A mod 3) - 0 then B:=A+b;
Writeln ("Сумма -" ), B;
end
Похожие вопросы