Question

Составить схему к программе Program имя ; Uses crt; Var x : Integer ; Begin Write Ln (‘ введите число’); Read (x) If mod 2=0 them write (‘четное’) else write (‘нечетное’) End. Помогите пожалуйста !!!

Answer 1

Ответ:

на фото

Объяснение:

Answer 2

Конечно! Вот исправленная схема для вашей программы:

scssCopy code
Program имя;
Uses crt;

Var
  x: Integer;

Begin
  WriteLn('Введите число');
  Read(x);
  
  If x mod 2 = 0 then
    WriteLn('четное')
  else
    WriteLn('нечетное');
End.

Обратите внимание, что я исправил несколько ошибок в вашей исходной программе:

1. Ln было заменено на WriteLn, чтобы вывести текст на новой строке.
2. Добавлена точка с запятой после оператора Read(x).
3. Исправлено условие в операторе If. Вместо "them" использовано "then" и добавлено сравнение с нулем, чтобы проверить, является ли число четным.

Теперь программа должна работать правильно.