Програмирование: нужно очень быстро решить очень
Ответы
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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Определите, какому десятичному числу соответствует двоичный код 00111111
Автор: magazintrofey
Какие команды входят в меню текстового редактора, как они отдаются?
Автор: metegina4
Нужно написать программу на pascal
Автор: manyugina1
Перевести число 125, 34 из восьмеричной системы счисления в двоичную
Автор: Yurevich1291
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.