18 ! в pascal найти разность чисел в промежутке то -15 до 4 сделать с !

Lakers44 Lakers44    3   18.07.2019 09:00    0

Ответы
mefrag mefrag  21.09.2020 22:57
Получилось: 80

Var
  r,i : Integer;
Begin
  i:=-14;
  r:=-15;
  Repeat
    r:=r-i;
    Inc(i);
  Until i>4;
  Writeln(r);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика