напишите программу в паскале на вычисление суммы модулей целых чисел между двумя заданными числами.

Question

Информатика

Натаха

22 января, 01:25

напишите программу в паскале на вычисление суммы модулей целых чисел между двумя заданными числами.

+2

Ответы (1)

Знаете ответ на вопрос?

Антонинка · Answer 1

var a, k, s, b:integer;

begin

write ('a=') ; read (a) ;

write ('b=') ; read (b) ;

s:=0;

k:=abs (b-a) ;

for k:=1 to k do

s:=s+1;

write ('s=', s) ;

end.