Question

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

Answer 1

program one;

var

i: Integer; //объявляем переменную

begin

ReadLn(i); //считываем с консоли число

if i mod 2 = 0 then //если число делится без остатка на 2

WriteLn('Четное') //то выводим "Четное"

else

WriteLn('Нечетное'); //иначе выводим "Нечетное"

end.

Блок-схему смотри во вложении.

Answer 2

Блок-схема:

arduinoCopy code
Начало
  Ввести число
  Если число четное, то
    Вывести "Число четное"
  Иначе
    Вывести "Число нечетное"
  Конец если
Конец

Программа на языке Pascal:

pascalCopy code
program parity;
var
  num: integer;
begin
  write('Введите число: ');
  readln(num);
  if num mod 2 = 0 then
    writeln('Число четное')
  else
    writeln('Число нечетное');
end.

Пример работы программы:

Copy code
Введите число: 8
Число четное

Введите число: 7
Число нечетное