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

mikki255 mikki255    2   22.05.2019 07:20    2

Ответы
попаоп попаоп  17.06.2020 10:52

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика