Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Напишите фрагмент программы, находящий сумму положительных кратным 5 чисел, меньших 120

Ответ оставил Гость

Var  
i,n:integer;
Begin 
for i:= 1 to 119 do   
if (i mod 5) = 0 then     
n:=n+i; 
Write(Сумма положительных кратных 5 чисел, меньших 120 равна ,n);
End.  

И вопрос - вы действительно 1-4 класс?