Установи соответствие. (Запиши в окошко только соответствующу
Для ввода картинок и
текста
А —
Программное
обеспечение
Физическая часть
системы обработки
данных
Б —
Аппаратура
Компьютерные
программы,
процедуры и с ними
Связанная
документация и
данные
В — Скане

революция 1917 года и великая отечественная война (1941-1945)

на листочке чертишь круг,берешь серединку,и получается- 4 клетки вниз и 7 в право

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.

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

i,k: integer;

begin

  read(a);

  k: =1;

  for i : = 1 to 10 do

  begin

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

  end;

  if k mod 2 = 0 then writeln(k," - chetnoe")

  else writeln(k," - ne chetnoe");

end.