Выведи на экран большее из двух данных чисел. Запиши программу на языке Паскаль, выведи ответ на экран, если 1, 37209 и 2, 0035. На экране vvedi dva chisla 1, 37209 2, 0035 Варианты ответа:

На питоне:

a = input().split(' ')

if (a[0] > a[1]):

 print(a[0])

elif (a[1] > a[0]):

 print(a[1])

else:

 print(a[0] + '=' + a[1])

Передите в Pascal в онлайн сервисе

Объяснение:

1. Программа "Анкета":
program anketa;
var a,b,d:string;
c:char;
begin
writeln('Введите ваши имя и фамилию в именительном падеже: ');
readln(a,b);
writeln('Введите букву класса: ');
readln(c);
writeln('Введите ваше хобби: ');
readln(d);
writeln('Меня зовут ',a,' ',b,';');
writeln('Я учусь в 7 "',c,'" классе гимназии 524;');
writeln('Моё хобби - ',d,';');
writeln('Периметр прямоугольника равен 30');
writeln('Сегодня ярко светит солнце!')
end.
2. Программа "Опросы":
program oprosy;
var a,b,c:integer;
d:real;
begin
writeln('Введите ваши оценки по пятибалльной шкале: ');
readln(a,b,c);
d:=(a+b+c)/3;
writeln('Ваша средняя оценка за тесты - ',d,'.');
end.
3. Программа "Периметр прямоугольника":
program perimetr;
var a,b,c:integer;
begin
writeln('Введите стороны прямоугольника: ');
readln(a,b);
c:=(a+b)*2;
writeln('Периметр прямоугольника = ',c,'.');
end.

1. Современное решение

PascalABC.NET 3.2, сборка 1417 от 28.03.2017
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Введите двухзначное число:');
  Writeln('Максимальная цифра ',max(n div 10, n mod 10))
end.

2. Школьное решения уровня ТурбоПаскаль 1983г.

var
  n,d,e,max:integer;
begin
  Write('Введите двухзначное число: ');
  Read(n);
  d:=n div 10;
  e:=n mod 10;
  if d>e then max:=d
  else max:=e;
  Writeln('Максимальная цифра ',max)
end.

3. Пример работы обоих программ (одинаковый)

Введите двухзначное число: 37
Максимальная цифра 7