Найти сумму всех целых чисел от a до b.

emil132 emil132    3   17.05.2019 23:10    2

Ответы
glebpoltorak glebpoltorak  11.06.2020 04:16
Uses crt; 
var a,b,s,i:integer; 

begin 
clrscr; 
readln(a); 
readln(b); 
for i:=a to b do 
begin 
s:=s+i; 
end; 
writeln(s); 
readln; 
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика