Marimanas
6 год назад
помогает пожалуйстаработа в паскалесоставьте программу вычисления суммы всех трехзначных чисел кратных 4
ОТВЕТЫ
Peno
Oct 24, 2020
uses crt;
var
n, sum:integer;
begin
n := 100;
while n < 1000 do
begin
sum += n;
n += 4;
end;
writeln('Сумма всех трёхзначных чисел, кратных 4= ',sum);
end.
var
n, sum:integer;
begin
n := 100;
while n < 1000 do
begin
sum += n;
n += 4;
end;
writeln('Сумма всех трёхзначных чисел, кратных 4= ',sum);
end.
978
Смежные вопросы:
