Добрый день.Помогите пожалуйста решить задачу ** Paskal. Подсчитать сумму двухзначных...

Question

Добрый день.Помогите пожалуйста решить задачу на Paskal.
Подсчитать сумму двухзначных чисел,сумма которых не превышает 7.

Answer 1

Ответ лёгок. Пример: 43+(-40); 59+(-55) и т.д.

Answer 2

Program test;
Var
i, i1:integer;
Begin
For i:=10 to 99 do begin
For i1:=10 to 99 do begin
if i-i1 < 7 then writeln(i,' + (-', i1,') =', i-i1);
End;
End;
End.