Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста написать программу на паскале турбо которая будет выводить все суммы числа 50 или n числа

Ответ оставил Гость

Var a,b,c:integer;
begin
writeln(введите число);
readln(a);
for b:=1 to a-1 do begin  writeln(a-b, + ,b, = ,a);
end;
end.