Question

35 баллов, срочно!!! Найдите у меня ошибку (Надо найти пяти 2-значных чисел найти: Самую большую цифру, которая кратна 3) var che,a,b,c,d,max,q:integer; begin max:=0; for q:=1 to 5 do begin writeln('Введите двухзначное число'); readln(che); a:=che div 1000; b:=che div 100 mod 10; c:=che div 10 mod 10; d:=che div 10; if (a>max) and (a mod 2=0) then min:=a; if (b>max) and (b mod 2=0) then min:=b; if (c>max) and (c mod 2=0) then min:=c; if (d>max) and (d mod 2=0) then min:=d; end; writeln ('Cамая большая цифра, которая кратна 3' ,max); end.

Answer 1

Ответ:

var che,a,b,max,i:integer;

begin

max:=0;

for i:=1 to 5 do

begin

writeln('Введите двухзначное число');

readln(che);

a:=che div 10;

b:=che mod 10;

if (a>max) and (a mod 3=0) then

max := a;

if (b>max) and (b mod 3=0) then

max := b;

end;

writeln ('Cамая большая цифра, которая кратна 3 : ' ,max);

end.

Объяснение:

Поправил

Answer 2

Код, который вы предоставили, содержит несколько ошибок. Вам нужно найти максимальную цифру среди пяти двузначных чисел, которая кратна 3. Давайте исправим ошибки в вашем коде:

1. Вы должны использовать max вместо min для сохранения максимальной цифры, которая кратна 3.
2. Вместо a:=che div 1000;, b:=che div 100 mod 10;, и так далее, вы должны правильно разбить числа на десятки и единицы.
3. Вы должны добавить проверку на кратность 3.

Вот исправленный код:

pascalCopy code
var
  che, a, b, c, d, max, q: integer;
begin
  max := -1; // Изменено, чтобы максимальное значение начиналось с -1.
  
  for q := 1 to 5 do
  begin
    writeln('Введите двухзначное число');
    readln(che);
    
    if (che >= 10) and (che <= 99) then // Проверяем, что введено двухзначное число.
    begin
      a := che div 10; // Получаем десятки.
      b := che mod 10; // Получаем единицы.
      
      if (a > max) and (a mod 3 = 0) then
        max := a;
        
      if (b > max) and (b mod 3 = 0) then
        max := b;
    end
    else
      writeln('Число не является двузначным.');
  end;
  
  if max = -1 then
    writeln('В введенных числах нет двузначных чисел, кратных 3.')
  else
    writeln('Самая большая цифра, которая кратна 3:', max);
end.

Этот код исправит ошибки и найдет самую большую цифру, кратную 3, среди введенных двузначных чисел.