Определите, что будет напечатано в результате работы следующей программы: var s, k: integer; Begin s := 70; for k := 1 to 8 do s := s - 6; write (s); End.

душ еаааснсосочрдра4вечесгс т7п7а6п6п7м иомш

ответ:

объяснение:

 

1.

вам повезло! египтолог отправляется исследовать несколько храмов в египет, а вас берёт своим . посетите храм и гробницу и подготовьте отчёт о религиозных верованиях египтян этого периода.

а) каких богов вы увидели в храме и гробнице? (укажите не менее 7-ми) составьте таблицу: имя бога/чему покровительствовал.

б) какие священные животные вам встретились? (укажите не менее 4-х) как вы думаете, почему они почитались?

свои рассуждения можете подкрепить фотографиями (скриншотами) из экспедиции.

PROGRAM A22;
const
    max = 42;
var
    vt:array[1..max]of byte;
    i,n:byte;
    x:integer;

BEGIN
  n := max;
  writeln('Массив из n элементов будет задан случайными числами на интервале [0,3].');
  readln(n);  
  write('Введите число которое будет добавлено к каждому элементу.');
  readln(x);  

  writeln('Начальный Массив' );
  randomize;
  for i:=1 to n do begin
    vt[i]:=random(1,3);
    write(vt[i], ' ');
  end;
  writeln(' ');
 
  writeln('Массив c результатом' );
  for i:=1 to n do begin
    write(vt[i]+x, ' ');
  end;
  writeln(' ');
 
END.