Вводятся значения двух ЦИФР. Напечатать максимальное двузначное число, которое можно сформировать из этих цифр или сообщение, что таких двузначных чисел не существует. (Pascal)
Ответы на вопрос
Ответил frederich
0
Program op;
uses crt;
var a, b, max, min:integer;
Begin
clrscr;
writeln('Введите первое число ');
readln(a);
writeln('Введите второе число ');
readln(b);
If a>b then max:=a min:=b else max:=b min:=a;
writeln(max min);
end.
uses crt;
var a, b, max, min:integer;
Begin
clrscr;
writeln('Введите первое число ');
readln(a);
writeln('Введите второе число ');
readln(b);
If a>b then max:=a min:=b else max:=b min:=a;
writeln(max min);
end.
Новые вопросы