<u><em>Программа в PascalABC.Net:</em></u>
const
digits=['0','1','2','3','4','5','6','7','8','9'];
var
s:string;
n,i,err:integer;
isdigit:boolean;
begin
Write('Введите натуральное число (1-9999): ');
Read(s);
i:=1;
isdigit:=True;
n:=Length(s);
repeat
isdigit:=isdigit and (s[i] in digits);
Inc(i)
until (not isdigit) or (i>n);
if isdigit then
begin Val(s,n,err); Writeln('Введено корректное число ',n) end
else Writeln('Число содержит нецифровой символ')
end.
<em><u>Отметим, что в PascalABC.Net в реальной жизни решение могло бы выглядеть так:</u></em>
var
s:string;
n,err:integer;
begin
Write('Введите натуральное число (1-9999): ');
Read(s);
Val(s,n,err);
if err=0 then Writeln('Введено корректное число ',n)
else Writeln('Число содержит нецифровой символ')
end.
<span>Program enot;
Var a,b,c: integer;
begin
write('введите стороны треугольника: ');
read(a,b,c);
writeln(a,' ',b,' ',c,' ');
end.
._.</span>
Ответ:
Дано:
640x480;
I=256Кбайт;
Найти: i.
Решение:
K=640*480=307200;
i=I/K=256(Кбайт)*307200=(1024*256)(Байт)/307200=(8*1024*256)(бит)/307200 (Примерно равно) 6.
Объяснение:
Получается 6,82666667, но округляем мы не до семи, а до шести. Потому что выделено 256Кбайт. Если бы мы взяли 7 цветов, это заняло бы больше места, чем 256Кб.
Словесная форма алгоритма:
<u>начало</u>
<u>введите</u> Х
<u>если</u> Х>10 <u>тогда</u>
Х=Х+2
<u>иначе</u>
Х=Х*10
<u>напечатать</u> Х
<u>конец</u>