1) скорость вращения магнитооптического диска составляет a) свыше 5 тысяч оборотов в минуту b) 3 тысячи оборотов в минуту c) 2 тысячи оборотов в минуту 2) какова скорость первого cd- rom устройство a) 350 кбит/сек b) 150 кбит/сек c) 650 кбит/сек 3) под достоверностью передачи информации подразумевается a) соответствие информации с b) процесс прямолинейной передачи c) передача информации без искажений 4) какие меры необходимо проявить при возникновении интереса разработчиков к вашей информации? a) защитить информацию b) установит контакт с данным c) перенести информацию на недоступный 5) мультимедиа- это a) электронный носитель, программно b) стандартная функция, поддерживаемая пк c) графическая, звуковые, видео файлы 6) что является еденицей светового потока a) ватты b) люмены c) импульсы 7) нормальный показатель уровня шума конвертора a) 0,6 дб b) 1,2 дб c) 0,9 дб 8) сколько всего этапов информационных технологий a) 6 b) 4 c) 2 9) к информационному обслуживанию не относится a) комплексное b) фактографическое c) документное

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

readln (a);   readln (b);   readln (c);

writeln (' фигуры: ',a,b,c);

end.

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

-,андрей!

-,паша!

-как у тебя дела?

-у меня всё хорошо,а ты как?

-у меня всё отлично. что спросил

-не за что.пойдёшь сегодня гулять?

-да,конечно.а во сколько?

-в 5 часов.

-хорошо.ладно пока.

пока.встретимся на улице

-хорошо.

var a, b: real; n: integer;

function arif_mem(a, b: real; n: integer): real; begin if n = 1 then arif_mem : = a; if n > 1 then arif_mem : = arif_mem(a, b, n - 1) + b; end;

function arif_sum(a, b: real; n: integer): real; begin if n = 1 then arif_sum : = a; if n > 1 then arif_sum : = arif_sum(a, b, n - 1) + arif_mem(a, b, n); end;

begin write('введите первый член прогрессии: '); readln(a); write('введите разность прогрессии: '); readln(b); write('введите номер члена прогрессии: '); readln(n); writeln(n, '-й член прогрессии равен : ', arif_mem(a, b, n): 8: 2); writeln('сумма ', n, ' членов прогрессии равна : ', arif_sum(a, b, n): 8: 2); end.