Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program dddd; uses crt; var a,b,c,i: integer; beginclrscr; c: =10; readln(a); while a < > 0 dobeginb: = a mod 10; if b < c then c: =b; a: = a div 10; end; writeln(c); readkey; end.
var
i,n: integer;
a: array [1..100] of integer;
begin
readln(n);
for i: =1 to n do
if i mod 2 =0 then a[i]: =i-3
else a[i]: =i+3;
writeln(a[i]);
end;
end.
в двоичной 1000001
в восмеричной 101
в шеснадцатеричной 41
строка, рот, ройка, ретро, рост, койка, река,тройка,тропа,река.
Популярные вопросы