Question

СРОЧНО! ДАЮ 95 баллов!

Записати у виглядi циклу з лічильником , i циклом з передумовою.

Знайти суму перших 100 (від 1 до 100) чисел кратних 5 (діляться на 5 без остачі)

Answer 1

Ответ:

Цикл з лічильником:

• var i,sum: integer;
• begin
• for i:= 1 to 100 do
• if i mod 5 = 0 then sum:=sum+i;
• write(sum);
• end.

Цикл з передумовою:

• var i,sum: integer;
• begin
• while i<100 do
• begin
• i:=i+1;
• if i mod 5 = 0 then sum:=sum+i;
• end;
• write(sum);
• end.

Пример работ: