Помогите, плииииз!!! Pasckal !) Даны два трехзначных числа. Вывести максимальные цифры в этих числах. 2) Дана последовательность чисел 1,2,3,4,5,6,…,1000. Найти все числа, которые делятся на 4,8,2

Вопрос школьника по предмету Информатика

Помогите, плииииз!!!
Pasckal

!) Даны два трехзначных числа. Вывести максимальные цифры в этих числах.
2) Дана последовательность чисел 1,2,3,4,5,6,…,1000. Найти все числа, которые делятся на 4,8,2

Ответ учителя по предмету Информатика

Var

A,B,m1,m2:integer;

Begin

Write(‘A = ‘);Read(A);

Write(‘B = ‘);Read(B);

A:=abs(A);

B:=abs(B);

m1:=A mod 10;

A:=A div 10;

if A mod 10 > m1 then m1:=A mod 10;

A:= A div 10;

if A mod 10 > m1 then m1:=A mod 10;

m2:=B mod 10;

B:=B div 10;

if B mod 10 > m2 then m2:=B mod 10;

A:= B div 10;

if B mod 10 > m2 then m2:=B mod 10;

WriteLn(‘Максимальная цифра в A = ‘,m1);

WriteLn(‘Максимальная цифра в B = ‘,m2);

End.

Var

i:integer;

Begin

Write(‘Кратные 4: ‘);

For i:= 1 to 1000 do

   if i mod 4 = 0 then Write(i,’ ‘);

WriteLn;

Write(‘Кратные 8: ‘);

For i:= 1 to 1000 do

   if i mod 8 = 0 then Write(i,’ ‘);

WriteLn;

Write(‘Кратные 2: ‘);

For i:= 1 to 1000 do

   if i mod 2 = 0 then Write(i,’ ‘);

WriteLn;

Write(‘Кратные 4,8,2: ‘);

For i:= 1 to 1000 do

   if i mod 8 = 0 then Write(i,’ ‘);

WriteLn;

End.