4)Укажите истинное утверждение. а)Одно и то же письмо нельзя переслать нескольким адресатам одновременно. б)Одно и то же письмо можно одновременно переслать нескольким адресатам. 5)Определите источник информации в ситуации, когда школьник читает текст в учебнике. а)школьник, б)учебник . 6)Какое средство передачи информации было изобретено раньше других?а)
Телеграф, б)Электронная почта, в)Телефон ПРОЙТИ ТЕСТ.

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

var

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

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.

qbasic

? "введите число"

input a

a: 2=b

if b=int(b) then 1 else 2

1 ? "это число четное" : goto 3

2 ? "это число не четное" 

3 end

var a: array [1..10] of integer;

min,max,i,c,b: integer;

begin

  read(c,b);

  randomize;

  for i : = 1 to 10 do

        a[i]: = random(b) -c+1;

  min: =1;

  max: =1;

  for i: = 1 to 10 do

  begin

        if a[min]> a[i] then min: =i;

        if a[max]< a[i] then max: =i;

  end;

  writeln(a[min], a[max]);

end.