Вопрос школьника по предмету Информатика
Дано двузначное число. Выяснить, какая из его цифр является наибольшей. вывести наибольшую цифру на экран.Pascal
Ответ учителя по предмету Информатика
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
Похожие вопросы от пользователей
НА ЛЮБУЮ ТЕМУ
СРОЧНОООООО