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