Определить в каком числе 1 цифра наибольшая - Free Pascal
Формулировка задачи:
Дано 4 числа, определить в каком числе 1 цифра наибольшая
Решение задачи: «Определить в каком числе 1 цифра наибольшая»
textual
Листинг программы
program pr;
var
a, b, c, d, f, s, t, fo: longint;
function firs(n: longint): integer;
var
b: integer;
begin
while n > 0 do
begin
b := n mod 10;
n := n div 10;
end;
firs := b;
end;
begin
writeln('Введите 4 числа');
readln(a, b, c, d);
f := firs(a);
s := firs(b);
t := firs(c);
fo := firs(d);
if (f > s) and (f > t) and (f > fo) then
writeln('у 1 числа наибольшая первая цифра: ', a);
if (s > f) and (s > t) and (s > fo) then
writeln('у 2 числа наибольшая первая цифра: ', b);
if (t > f) and (t > s) and (t > fo) then
writeln('у 3 числа наибольшая первая цифра: ', c);
if (fo > s) and (fo > t) and (fo > f) then
writeln('у 4 числа наибольшая первая цифра: ', d);
end.
Объяснение кода листинга программы
Список действий в коде:
- Ввод 4 чисел с помощью функции readln.
- Вычисление наибольшей первой цифры для каждого числа с помощью функции firs.
- Сравнение наибольших первых цифр для каждого числа.
- Вывод сообщения о том, у какого числа наибольшая первая цифра.