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.

Объяснение:

Поправил