Варианты ответов: 1.program zadaca; var a: integer; begin writeln('Введи число a'); readln(a); if a > =0 then if a=0 then a:=11 else a:=a+1 else a:=a-3; end. 2. program cislo; var a: integer; begin writeln('Введи число a'); readln(a); if a > 0 then a:=a+12; writeln(a); readln; end. 3. program cislo; var a: integer; begin writeln('Введи число a'); readln(a); if a < 0 then a:=a+12; writeln(a); readln; end.

4.Операционная система — комплекс программ, обеспечивающий управление аппаратными средствами компьютера, организующий работу с файлами и выполнение прикладных программ, осуществляющий ввод и вывод данных.

5.Обмен данными между компьютером и различными периферийными устройствами (терминалами, принтерами, гибкими дисками, жесткими дисками и т. ...

Обеспечение системы организации и хранения файлов.

Загрузка программ в память и обеспечение их выполнения.

Организация диалога с пользователем.

6.извини, не знаю

надеюсь

1) Пароль в этом коде - "zn4n1j4". Заменить при необходимости.

var

 i: integer;

 s: string;

begin

 i := 1;

 while i <= 5 do

 begin

   readln(s);

   if s = 'zn4n1j4' then

   begin

     writeln('Вход в систему разрешен');

     exit;

   end;

   writeln('Неверный пароль.');

 end;

 writeln('Пароль не был угадан 5 раз.');

end.

2) Используем операцию x mod 10 для получения последней цифры числа и x div 10 для "отбрасывания" последней цифры числа.

var

 x, ans: integer;

begin

 read(x);

 ans := 0;

 while x <> 0 do

 begin

   ans := ans + (x mod 10);

   x := x div 10;

 end;

 writeln(ans);

end.