Question

Даны четыре целых положительных числа. Необходимо выбрать из них и вывести на экран число с наибольшей последней цифрой. Если в наборе несколько чисел с одинаковой наибольшей последней цифрой, нужно вывести наибольшее из этих чисел. Программа на Паскале. Пожалуйста, помогите! Очень нужно! Не пойму

Answer 1

Ответ:

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.

Answer 2

Конечно, я помогу вам написать программу на Паскале для решения данной задачи. Вот пример кода:

pascalCopy code
program MaxLastDigit;

var
  num1, num2, num3, num4: integer;
  maxLastDigit, maxNumber: integer;

begin
  writeln('Введите четыре целых положительных числа:');
  readln(num1, num2, num3, num4);

  maxLastDigit := num1 mod 10;
  maxNumber := num1;

  if num2 mod 10 > maxLastDigit then
  begin
    maxLastDigit := num2 mod 10;
    maxNumber := num2;
  end;

  if num3 mod 10 > maxLastDigit then
  begin
    maxLastDigit := num3 mod 10;
    maxNumber := num3;
  end;

  if num4 mod 10 > maxLastDigit then
  begin
    maxLastDigit := num4 mod 10;
    maxNumber := num4;
  end;

  writeln('Число с наибольшей последней цифрой: ', maxNumber);

  readln;
end.

Вы можете вставить этот код в среду разработки Pascal (например, Lazarus) и выполнить его. Программа попросит вас ввести четыре целых положительных числа, а затем выведет число с наибольшей последней цифрой.

Если у вас возникнут дополнительные вопросы или проблемы, не стесняйтесь спрашивать!