Var n,max: longint; begin writeln('введите трехзначное число: '); readln(n); max: =0; repeat if (n mod 100)> max then max: =(n mod 100); n: =n div 100; until n=0; writeln('самое большое число в трехзначном числе: ',max); readln; end.
Спасибо
Ответ дал: Гость
у дальних планет больше спутников по причине их большей массы. чем больше масса планеты - тем большую массу она притягивает и захватывает.
Ответ дал: Гость
program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа: '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.
Популярные вопросы