Даны четыре целых положительных числа. Необходимо выбрать из них и вывести на экран число с наибольшей последней цифрой. Если в наборе несколько чисел с одинаковой наибольшей последней цифрой, нужно вывести наибольшее из этих чисел.
Программа на Паскале.
Пожалуйста, помогите! Очень нужно! Не пойму
Программа на Паскале.
Пожалуйста, помогите! Очень нужно! Не пойму
More Questions From This User See All
Answers & Comments
Ответ:
var a,b,c,d,res: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
write('Введите d: ');
readln(d);
res := a;
// Проверяем число b
if (b mod 10 > res mod 10) then res:=b
else if (b mod 10 = res mod 10) then
begin
if (res<b) then res:=b;
end;
// Проверяем число c
if (c mod 10 > res mod 10) then res:=c
else if (c mod 10 = res mod 10) then
begin
if (res<c) then res:=c;
end;
// Проверяем число d
if (d mod 10 > res mod 10) then res:=d
else if (d mod 10 = res mod 10) then
begin
if (res<d) then res:=d;
end;
writeln('Число с наибольшей последней цифрой: ',res);
end.