Попробуйте оплатить задолженность и позвонить провайдеру.
<span />
Program CrazyCoder;
var n:real; i:integer;
begin write('Введите n ');
read(n);
if (n<2) or (n>10) then
begin
while (n<=1) or (n>10) do
begin
writeln('Ошибка! Число n должно быть в диапазоне от 2 до 10');
write('Введите n ');
read(n);
end;
end;
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
<span>end.</span>
В КОИ-8 было 32 байта (1 символ кодируется 1байтом =8бит)
В Unicod стало 64 байта (1 символ кодируется 2-я байтами =16 бит)
Var s,i:integer;
begin
write('s = ');
readln(s);
for i:=100 to 999 do
if (i div 100 + i div 10 mod 10 + i mod 10 < s)
then write(i,' ');
end.
Пример:
<span>s = 5
100 101 102 103 110 111 112 120 121 130 200 201 202 210 211 220 300 301 310 400 </span>