1. Рассмотрите изображение. SORATCH Dain Праскат Подскази ОСкретч к к е Untitled Скрипты Костюмы Звуки Движение внешность Зву? Перо Данные События Управление Сонсоры Операторы Другие блоки идти 10 шагов повернути Спа 15 градуса повернути на градусор повернути направлении 90 повернута крапель мешко Перейти ох; у перейти в уарлы ше х: 240 у: -140 лись 1 секунд оточку и о Спрайты Новый объект о шенить за 10 установить хво Сцена 1 фон Sprdat авить ума 10 установить у во Нарья фон Предложите требования для создания данной программы. 1. 2. 3.

1) Переводим разрешающую сканера из дюймов в см. 1 дюйм=2,54 см
1200dpi/2,54см=472 точек на см
Площадь листа формата А4==21*29,7=623,7 см^2
А всего точек в сканируемом изображение будет: 472*472*623,7=138950380,8
Каждая точка кодируется с бит, поэтому на кодирование всех точек на листе надо: 138950380,8*24=3334809139 бит информации или 416851142,4 байт или 407081 Кбайт или 397,5 Мбайт
2) Время звучания файла=объем файла/(число каналов*разрядность*частоту)
Объем=2847*512*8=11661312 бит
T=1161312/(1*8*8000)=182 c
T=1161312/(2*16*48000)=7.6 с

Program Ksushaa1999PasswordRepeat;
uses crt;
var
  vvod,ok:string;
const
  pass='[email protected]&$45%$!#hftHUgruG';
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln();
repeat
    writeln('Введите пароль ');
    readln (vvod);
  until vvod=pass;
writeln('Принято');
end.

Program Ksushaa1999PasswordWhile;
uses crt;
var
  vvod,ok:string;
const
  pass='[email protected]&$45%$!#hftHUgruG';
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  while vvod<>pass do
    begin
      writeln('Введите пароль ');
      readln (vvod);
    end;
  writeln('Принято');
end.

Program PKsushaa1999PasswordIf;
uses crt;
var
  vvod,ok:string;
const
  pass='[email protected]&$45%$!#hftHUgruG';
label
  metka;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln();
metka:  writeln('Введите пароль ');
  readln (vvod);
  if vvod<>pass then goto metka;
  writeln('Принято');
end.