Скільки частин має проект?варіанти відповідей1234​

Я не могу определить без файла сколько там у него? может 10 может 1

Объяснение:

Program Djonny1981;
uses crt;
const
  m=5;
var
  a: array[1..m,1..m] of integer;
  i, j: integer;
  sum: integer;
begin
  randomize;
  sum:=0;
  for i:=1 to m do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(101)-50;
          write(a[i,j]:5);
        end;
        writeln();
    end;
  for i:=1 to m do
    for j:=1 to m do
      if j mod 2 = 0 then {вот здесь проверка, чётный ли столбец}
         sum := sum + a[i,j];
  writeln('Сумма элементов чётных столбцов равна ',sum);
  if sum>0 then
      for i:=1 to m do
        for j:=1 to m do
          if i mod 2 = 1 then
            a[i,j]:=a[i,j]*a[i,j]
    else
      for i:=1 to m do
        a[m-i+1,i]:=a[m-i+1,i]+2;
  for i:=1 to m do
    begin
      for j:=1 to m do
        write(a[i,j]:5);
      writeln();
    end;
end.

1. а) Петя едет в автобусе, читает книгу и насвистывает.
    б) Петя насвистывает, когда едет в автобусе или читает книгу.
    в) Петя едет в автобусе и читает книгу или насвистывает.
    г) то же, что и а).
   д) Петя едет в автобусе или читает книгу и насвистывает.
2. а) Число 5-простое = 1.    б) Луна-спутник Венеры = 0. 
  в) Число 5-простое и Луна-спутник Венеры = 0.
г) Число 5-простое или Луна-спутник Венеры = 1.
д) Если число 5-простое, то Луна-спутник Венеры = 0.
е) Число 5-простое тогда и только тогда, когда Луна-спутник Венеры = 0.
3. а) 1999<2000 и 1999>2000
б) Петя решил все задания контрольной работы и Петя не решил все задания контрольной работы
в) Неверно, что луна спутник Земли и Неверно, что луна не является спутником Земли
г) Мишень поражена не первым выстрелом и Неверно, что мишень поражена не первым выстрелом.
4. А=1,  В=0,  С=1,  Д=0.