I = 2 байта, K = 56 символов.
I = i*K = 2 * 56 = 112 байт
var
a, m : integer;
begin
writeln('введите 8 чисел');
read(m);
for var i := 2 to 8 do begin
read(a);
if a > 0 then if a < m then m := a;
end;
writeln('наименьшее из чисел = ', m);
end.
0 не учитывается, если 0 тоже считать как положительное число то
"if a > 0" нужно заменить на "if a >= 0"
Var a,b,c,d,n:integer;begin
writeln('введи номер цифры');
readln(d);
b:=0;
a:=1;
n:=0;
if d<0 then while d<0 do begin
writeln('введено неверное число ,попробуйте ещё раз');
readln(d);
end;
while c<2147483646 do begin
c:=a+b;
b:=a;
a:=c;
n:=n+1;
if (n=d) then c:=2147483647;if (n=d) then d:=b;
end;
writeln('это число ',b);
<span>end.</span>
Ответ 2)
Если надо расписать, то напиши мне, распишу)
Чтобы определить количество всех символов мы делаем следующие действия:
429*48*53= 1 091 376 символ
затем определяем кол-во времени, которое придется затратить:
1 091 376 : 149=7 324, 671... (мин)
соответственно чтобы получить время в часах нужно полученное число разделить на 60
7 324, 671... : 60=122,077...
т е приблизительно понадобится затратить на ввод текста 122 часа