Помогите, плииииз!!! 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы