Найти сумму всех целых чисел от a до b (a> b). в паскале )буду )

dhdhhd55 dhdhhd55    2   29.08.2019 02:40    0

Ответы
anastasiabejena anastasiabejena  06.10.2020 01:57
Program Z1;
 var
  s,i:integer;
  a,b:real;
Begin
 readln(a,b);
 s:=0;
 for i:=b to a do
 s:=s+i;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика