Серед наведених нижче речень командами є … а) Запишіть умову задачі б) Як твої справи? в) Подай мені чашку г) Прибери посуд д) Іван народився влітку е) Приходь до нас в суботу

1 символ = 1 байт

70*50=3500 байт

3500*8=28000 бит(вес одной страницы)

1 мегабит = 1048576 бит

1048576*100=104857600 бит

104857600/28000=3744 страниц

qbasic не знаю, знаю только вижуал бэйсик

for i = 1 to 10

  a(i) = i

next i

for i = 1 to 5

  b = a(10+1-i)

  a(10+1-i) = a(i)

  a(i) = b

next i

s = 0;

for i = a to b

  if (i mod 2 =1) and (i mod 3 = 0) then

          s = s + 1

  end if

next i

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.