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

Question

Информатика

Ириша

29 августа, 01:24

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

+3

Ответы (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.