uses crt;
var ch,a,b:integer;
begin
readln(Ch);
a:=ch div 10;
b:=ch mod 10;
if a >b then writeln(a) else writeln(b);
readln;
end.
Uses crt;
var i:integer;
s:real;begin
s:=1;write(s);
for i:=1 to 50 do begin
i:=i+1;
s:=s*i;write('*',i);
end;
write (' = ',s);
<span>end.
P.s. Программа написана на языке PascalABC, странный ответ она выдает потому, что в данном языке есть ограничения, и число, которое получается, выходит за диапазон данного значения.</span>
Var - блок переменных с их описанием i,k - переменные (тип integer 'числовой') a - массив от 1 до 10 (тип integer)
begin - начало программы
randomize - включение генератора рандомных чисел
for i:=1 to 10 do
a[i]:=random(11)-5 - работа с массивом
for i:=1 to 10 do
write('',a[i]);writeln; - распечатка массива