Регистрация
dilnaz116
08.06.2022 12:35
Информатика
Есть ответ 👍

Программирование: вычислите ( написать программу) правда или нет, что переменная х является четной ( делится на два).

177
371
Посмотреть ответы 2

Ответы на вопрос:

юка28
юка28
4,8(58 оценок)
Pascalabc.net 3.3.5, сборка 1644 от 23.03.2018 внимание! если программа не работает, обновите версию! begin   abs(readinteger('введите число: '.println end. примеры введите число: 12341 false введите число: -6345238 true
nbillier2004gmailcom
nbillier2004gmailcom
4,4(60 оценок)

uses crt;

const

  n = 3;

var

  a: array[1..n, 1..n] of integer;

  i, j, s: integer;

begin

  clrscr;

  for i : = 1 to n do

    for j : = 1 to n do

      read(a[i, j]);

  s : = 0;

  for i : = 1 to n do

  begin

    for j : = 1 to n do

    begin

      write(a[i, j]: 5);

      if i = j then s : = s + a[i, j]

    end;

    writeln

  end;

  writeln('s=', s);

  readkey

end.

Популярно: Информатика