Напишите программу, которая будет выводить на экран числа в порядке возрастания.
Помогите, пожалуйста
BobbyFresnel:
Какие числа, откуда брать, сколько их или до каких пор брать?
Ответы
Ответ дал:
1
===== Современный PascalABC.NET =====
begin
var (a, b) := ReadInteger2('Введите a и b:');
if a > b then
Print(a, b)
else
Print(b, a)
end.
===== Старенький Free Pascal =====
var
a, b: integer;
begin
Write('Введите a и b: ');
Readln(a, b);
if a > b then
Write(a, ' ', b)
else
Write(b, ' ', a)
end.
===== Turbo Pascal для современников мамонтов =====
program ABC;
uses Crt;
var
a, b: integer;
begin
ClrScr;
Write('Введите a и b: ');
Readln(a, b);
if a > b then
Write(a, ' ', b)
else
Write(b, ' ', a);
ReadKey;
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
2 года назад