Найдите разность чисел от -5 до 28(Паскаль)
Найдите разность чисел от -5 до 28(Паскаль)
Гость
Ответ(ы) на вопрос:
Гость Var
i, s: integer;
begin
s := 0;
for i := -5 to 28 do
s := s - i;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы