1001011 =
=<span> 64 + 0 + 0 + 8 + 0 + 2 + 1 = 75</span>
<h2><u>7. </u></h2>
program raf105;
var
num,max: integer;
begin
writeln('Вводите числа по очереди. Что бы закончить введите 0');
max:= -99999;
repeat
readln(num);
if num > max then max:= num;
until num = 0;
writeln('Вывод: ',max);
end.
<h2><u>8. </u></h2>
program raf105;
var
num,min: integer;
begin
writeln('Вводите числа по очереди. Что бы закончить введите 0');
min:= 99999;
repeat
readln(num);
if (num < min) and (num <> 0) then min:= num;
until num = 0;
writeln('Вывод: ',min);
end.
<h2><u>9. </u></h2>
program raf105;
var
num,count,max: integer;
begin
write('Введите количество чисел: ');
readln(count);
writeln('Вводите числа по очереди');
max:= -99999;
for var i:=1 to count do
begin
readln(num);
if (num > max) and (num mod 5 = 0) and (num <> 0) then max:= num;
end;
if max <> -99999 then writeln('Вывод: ',max)
else writeln('Таких чисел нет.');
end.
<h2><u> </u></h2><h3>PascalABC</h3>
Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
program zadacha;
var
x,y:real;
begin
writeln('vvedite x');
readln(x);
if x>0 then y:=-2+3*x else y:=8+x;
writeln('y=',y);
end.
Инф.объем = частота * время * разрядность * кол-во дорожек
1 мин = 60 сек
Дорожка 1 (т.к. В условии не сказано что их несколько)
1,3 мб = 1,3*1024*1024*8 бит
1,3*1024*1024*8 = частота * 60 * 8 * 1
1,3*1024*256 = частота * 15
Частота =1,3*1024*256 / 15
Осталось посчитать