Определить сумму всех чисел из [а; b], кратных 5 (а

vikarubachok vikarubachok    3   29.08.2019 17:30    1

Ответы
Nasti12 Nasti12  06.10.2020 03:21
Var
   a,b:integer;
   S:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
S:=0;
For b:= a to b do
    S:=S+b;
WriteLn('S = ',S);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика