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

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

ответ:

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

var i,sum: integer;beginfor i:= 1 to 100 doif i mod 5 = 0 then sum:=sum+i;write(sum);end.

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

var i,sum: integer;beginwhile i<100 dobegini:=i+1;if i mod 5 = 0 then sum:=sum+i;end;write(sum);end.

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