Question

паскаль 8 класс. программа: если а чётное то нужно найти корень из него, если а нечётное то ничего не делать. СРОЧНО ПОМОГИТЕ​

Answer 1

Ответ:

program z;

var a:integer;

begin

read(a);

if a mod 2 = 0 then write(sqrt(a))

end.

Объяснение:

если число чётное, то выводим корень из числа, иначе программа ничего не делает (просто завершается)

если нужно добавить вывод числа без изменений, то перед end вставить строку:

else write(a)

Answer 2

Конечно, я помогу вам с программой на языке программирования Pascal. Вот пример программы для выполнения вашей задачи:

program FindSquareRoot;

var
  a: integer;

begin
  // Вводим значение переменной a
  write('Введите значение переменной a: ');
  readln(a);

// Проверяем, является ли a четным числом
  if a mod 2 = 0 then
  begin
    // Если a четное, находим корень из a
    writeln('a является четным числом.');
    writeln('Корень из a: ', sqrt(a):0:2);
  end
  else
  begin
    // Если a нечетное, ничего не делаем
    writeln('a является нечетным числом.');
    writeln('Ничего не делаем.');
  end;

readln; // Ждем ввода перед закрытием программы
end.

В данной программе вводится значение переменной `a`, затем проверяется, является ли оно четным. Если `a` четное, то программа находит корень из него и выводит результат. Если `a` нечетное, программа просто выводит сообщение о том, что ничего не делает.

Сохраните этот код в файл с расширением ".pas" и запустите его средой Pascal для выполнения и тестирования. Если у вас возникнут вопросы или проблемы, не стесняйтесь спрашивать.