Требовалось написать программу, при выполнении которой с клавиатуры вводится последовательность из шести неотрицательных целых чисел, не превышающих 106, подсчитывается и выводится сумма введённых чётных чисел или 0, если чётных чисел в последовательности нет. ученик написал такую программу:
напишите, что выведет эта программа при вводе последовательности 1, 1, 2, 3, 5, 8.

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

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('слово которое хотите вставить',s,7);

writeln (s);

readln;

end.

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;

смотря какая передача и каких данных, много чего придумать можно, мне кажется) телефон, радио, модем,рация. или просто- передатчик.