1) 4 Мб=33554432 бита
2)5 кбайт=40960 битов
3)572 байта=4576 бита=
4)754 бита=754 бита
5)120 битов=120 битов
Вроде,нет inc'(n=1 ,n:5')
Var a,b,c:real;
begin
writeln('Введите a');
readln(a);
writeln('введите b');
readln(b);
c:=a/b;
writeln (c);
end.
PASCAL
program aa;
var a : integer;
begin
writeln('Введите день недели');
Read(a);
If (a < 1) or (a>7) then writeln('Такого дня не существует');
If (a > 0) and (a<6) then writeln('Рабочий день');
If a=6 then writeln('Суббота');
If a=7 then writeln('Воскресенье');
end.