Найдите сумму чисел, кратных 5 от 1 до n(паскаль)

2017mariana 2017mariana    2   23.08.2019 17:50    2

Ответы
kirillm3 kirillm3  05.10.2020 15:02
Var
N,S:integer;
Begin
S:=0;
ReadLn(N);
For N:= 1 to N do
   if N mod 5 = 0 then S:=S+N;
WriteLn('S = ',S);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика