Задание 1
Во Какие из приведённых утверждений верны?
Выберите несколько из 4 вариантов ответа:
1) a % b = b // a
2) math. cos (1) = math. cos (1 + 2 * math. pi)
3) a % b = a - (a // b) * b
4) math. sin (1) = math. sin (1 + 180)

Задание 2
Во Установите соответствие между функциями и их значениями, если x = 1.69.
Укажите соответствие для всех 4 вариантов ответа:
1) 1 sqrt (x)
2) 1.69 abs (x)
3) 1.3 int (x)
4) 2 round (x)

Задание 3
Во Функция abs (x) вернула значение 4. Укажите возможные значения x.
Выберите несколько из 4 вариантов ответа:
1) 2 2) 4 3) -4 4) 16

Задание 4
Во Установите соответствие между данными и их типом?
Укажите соответствие для всех 6 вариантов ответа:
1) int int (4 / 3)
2) float round (2.3)
2 / 2
abs (6 / 3)
6 % 4 / 2
3 // 2
Задание 5
Во Сопоставьте значения данных и их типы.
Укажите соответствие для всех 6 вариантов ответа:
1) int -10
2) float 4 / 2
0.2e+01
3 + 2
0
2

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.

интерфейс, ёмкость, размер, время произвольного доступа, скорость вращения шпинделя, надежность, количество операций ввода-вывода в секунду, потребление энергии, сопротивляемость ударам, скорость передачи данных, объем буфера.

(жирным шрифтом для всех, обычным для жестких, флеш и тд.)

var a,b: integer;

begin

  read(a,b);

  writeln("s=",a*b/2);

end.

чесно говоря без них куда легче

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then s[i]: ='*';

  writeln(s);

end.

с ними только больше кода

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then begin

          delete(s,i,1);

          insert('*',s,i);

      end;

  writeln(s);

end.