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>
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (n,k):=(ReadInteger,0);
while n>0 do (n,k):=(n div 10,k+1);
Writeln(k)
end.
Количество символов в документе равняется:
71*35*50;
71*35*50/1024=121.3кб
Т.к в одном килобайте содержится 1024 символов.
1 мегабайт = 1024 килобайта
1 килобайт = 1024 байт
512*1024*1024=536870912 однобайтовых ячеек