Найдите у меня ошибку
(Надо найти пяти 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.

ИваПоля ИваПоля    3   17.03.2021 22:56    0

Ответы
sofiyabashkaiki sofiyabashkaiki  17.03.2021 23:00

var che,a,b,max:integer;

begin

max:=0;  

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;  

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

end.

Объяснение:

Держи, дурачок

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика