Question

На паскале скринн всего экрана Задача А. С клавиатуры вводится натуральное число. Напишите программу, которая выводит “ДА”, если число четное, иначе - “НЕТ”. Задача Б. В компьютер вводятся два числа. Если первое больше второго, то вычислить их сумму, иначе - произведение. После этого компьютер должен напечатать результат

Answer 1

Ответ:

~~~~~~~~~~

А)

program num;

var

 number: integer;

begin

 read(number);

 if (number mod 2 = 0) then

   write('ДА')

 else

   write('НЕТ');

end.

~~~~~~~~~~

Б)

program b;

var

 first, second: integer;

begin

 read(first, second);

 if (first > second) then

   write(first + second)

 else

   write(first * second);

end.

~~~~~~~~~~

Объяснение:

~~~~~~~~~~

А)

program num; // Название программы

var

 number: integer; // Целочисленная переменная, хранящая вводимое с клавиатуры число

begin // Начало программы

 read(number); // Считываем число с клавиатуры

 if (number mod 2 = 0) then // Если остаток от деления значения переменной number на 2 = 0, тогда

   write('ДА') // Выводим "Да"

 else // Иначе

   write('НЕТ'); // Выводим "Нет"

end. // Конец  программы

~~~~~~~~~~

Б)

program b; // Название программы

var

 first, second: integer; // Целочисленные переменные, хранящие вводимые с клавиатуры числа

begin // Начало программы

 read(first, second); // Считываем числа с клавиатуры

 if (first > second) then // Если первое число > второго числа, тогда

   write(first + second) // Выводим сумму этих чисел

 else // Иначе

   write(first * second); // Выводим произведение этих чисел

end. // Конец  программы

~~~~~~~~~~

Answer 2

Конечно, вот решение задач на языке Pascal:

Задача А. Проверка на четность:

pascalCopy code
program TaskA;

var
  number: integer;

begin
  writeln('Введите натуральное число:');
  readln(number);
  
  if number mod 2 = 0 then
    writeln('ДА')
  else
    writeln('НЕТ');
end.

Задача Б. Вычисление суммы или произведения:

pascalCopy code
program TaskB;

var
  num1, num2, result: integer;

begin
  writeln('Введите два числа:');
  readln(num1, num2);
  
  if num1 > num2 then
    result := num1 + num2
  else
    result := num1 * num2;
  
  writeln('Результат:', result);
end.

Скопируйте соответствующий код для каждой задачи в среду программирования Pascal, например, Free Pascal, и запустите программы. Вводите необходимые значения с клавиатуры, и программа выведет соответствующие результаты.