Var ch: char;
<span>begin
</span><span> repeat
</span><span> read(ch);
</span><span> if ch in ['0'..'9'] then
</span><span> begin
</span><span> writeln('есть цифра ',ch);
</span><span> exit;
</span><span> end;
</span><span> until ch='.';
</span><span> writeln('нет цифр');
</span><span>end.
</span>
Так выглядит блок ввода данных.
program bar;
uses Crt;
const
nn = 100;{ максимальный размер массива }
var
i, j, n: integer;
a: array[1..nn] of integer;
begin
randomize;
write('n = ');
readln(n);
for i := 1 to n do
begin
a[i] := random(199) - 99;
write(a[i], ' ')
end;
writeln;
j := 1;
for i := 2 to n do
if a[i] < a[j] then
j := i;
writeln('N min = ', j);
ReadKey
end.
Дано
a=500
b=512
N=16
V=?
V=a*b*I I - неизвестно N=2^I 16=2^I I= 4 бит
V=500*512*4=1024000 бит=125 Кбайт