1) Какое значение будет принимать переменная Y после выполнения фрагментов программы?

a) Var Y, X: integer;

Begin

Y: = 1;

X: = 12;

Repeat

Y: = Y*X;

X: = X – 2;

Until X<7;

Writeln (‘Y=’,Y);

End.

б) Var Y, X: integer;
Begin
Y: = 1;
X: = 16;
Repeat
Y: = X*X;
X: = X – 4;
Until X<=0;
Writeln (‘Y=’,Y);
End.

2) Определить значение переменной у после выполнения фрагмента следующей программы:

Var y:real;

i:integer;

begin

y:= 1;

i:= 2;

repeat

i:=3*i;

y:=y+i

until i > 7;

Writeln ('y=',y);

End.

№1

1) Устройство вывода

2) Процессор

№2

1) Клавиатуры

2) Принтере

№3

Устройства ввода: клавиатура

Устройства вывода: монитор, наушники, принтер

№4

1) Веб-камера

2) Проектор

Объяснение:

№5

Операционная система изображена на первой картинке (Windows 7)

№6

1) Управление устройствами компьютера (ресурсами)

2) Ведение файловой структуры.

3) Пользовательский интерфейс, т.е. диалог с пользователем.

№7

Не могу разобрать сообщение (низкое качество фотографии)

№8

Wi-Fi

Bluetooth

USB

№9

Мобильность (удобство в использовании)

Легкость создания и расширения сети

№10

ИК-порт: телефон - компьютер

Bluetooth: беспроводные наушники\колонка - телефон

Код программы:

var a:integer;

begin

 write('Введите возраст автовладельца: ');

 readln(a);

 if (a > 40) then begin

    writeln('Выберите место эксплуатации:');

    writeln('1. Город');

    writeln('2. Сельская местность');

    readln(a);

    if (a = 1) then begin

       write('Введите стаж: ');

       readln(a);

       if (a > 10) then

         writeln('Страховать')

       else

         writeln('Не страховать')

    end

    else

       writeln('Страховать')

 end

 else begin

    writeln('Езда без аварий?');

    writeln('1. Да');

    writeln('2. Нет');

    readln(a);

    if (a = 1) then

      writeln('Страховать')

    else begin

      writeln('Выберите тип автомобиля:');

    writeln('1. Минивэн');

    writeln('2. Спорткар');

    readln(a);

    if (a = 1) then

      writeln('Страховать')

    else

      writeln('Не страховать')

    end;

 end;

end.