Помогите пожалуйста написать программу на паскале турбо которая будет выводить все суммы числа 50 или n числа
Ответы
Ответ дал:
0
var a,b,c:integer;
begin
writeln('введите число');
readln(a);
for b:=1 to a-1 do begin writeln(a-b,' + ',b,' = ',a);
end;
end.
begin
writeln('введите число');
readln(a);
for b:=1 to a-1 do begin writeln(a-b,' + ',b,' = ',a);
end;
end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад
10 лет назад