Оператор организации ввода данных с клавиатуры записывается на языке pascal с использованием служебного слова а) var б) write в) read г) goto

Var - объявление переменных write - вывод на экран read - ввод данных с клавиатуры goto - переход к определенному оператору помеченному меткой. следовательно ответ: в)read

Var d: integer; const a=650; b=1; c=1000; begin write('введите объём видеофайла в мегабайтах: '); readln(d); if d> a then write('видеофайл не помещается на   носитель информации"а"! ',#10) else writeln('памяти хватает для записи на носитель "а"! ',#10); if d> b then write('видеофайл не помещается на   носитель информации"b"! ',#10) else writeln('памяти хватает для записи на носитель "b"! ',#10); if d> c then write('видеофайл не помещается на данный носитель информации"с"! ',#10) else writeln('памяти хватает для записи на носитель "c"! ',#10); readln; end.

Uses crt; var       i, n, count: longint; begin       clrscr;       writeln('zadaite chislo n');       readln(n);             count : = 0;       for i : = 100 to 999 do               if i div 100 + i div 10 mod 10 + i mod 10 = n then               begin                       writeln(i,' ');                       count: =count + 1;               end;                     writeln(count);       readln; end.