Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a,b,s,i: integer;
begin
readln(a,b);
if a> b then
for i: =b to a do
s: =s+i
else
for i: =a to b do
s: =s+i;
writeln(s);
end.
* 60 / 16 =
7680*90=691200
691200/16=43200
43200/400=108 страниц
Популярные вопросы