Регистрация
superrada
13.05.2021 06:44
Информатика
Есть ответ 👍

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

112
377
Посмотреть ответы 2

Ответы на вопрос:

Hamidylla
Hamidylla
4,6(82 оценок)

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.

Объяснение:

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

sacha0457
sacha0457
4,7(6 оценок)
Если нам важен порядок, мы используем размещения. размещениями из n элементов по m (мест) называются такие выборки, которые имея по m элементов, выбранных из числа данных n элементов, отличаются одна от другой либо составом элементов, либо порядком их расположения.

Популярно: Информатика