Составить программу вычисления суммы всех натуральных чисел меньше 100 и кратных b ( от1 до 100).
Нужно составить 1- с циклом с пред условием, 2 - с циклом с пост условием

Ответы (1)

Бигимай 07.02.2025 5

1)
var sum:integer;
a,b:integer;
begin
a:=1;
readln(b);
for a:=1 to 99 do begin
if a mod b = 0 then
sum:=sum+a;
end;
writeln(sum);
end.

2)
var sum:integer;
a,b:integer;
begin
a:=1;
readln(b);
repeat
if a mod b = 0 then
sum:=sum+a;
inc(a);
until a=100
writeln(sum);
end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ

Составить программу вычисления суммы всех натуральных чисел меньше 100 и кратных b ( от1 до 100). Нужно составить 1- с циклом с пред условием, 2 - с циклом с пост условием

Думаешь ответы не верны?

Составить программу вычисления суммы всех натуральных чисел меньше 100 и кратных b ( от1 до 100).
Нужно составить 1- с циклом с пред условием, 2 - с циклом с пост условием