Question

Введите на языке Pascal. Программа предлагает перевести на русский язык английское слово Windows и ввести ответ с клавиатуры. Если ответ верен (введено "окна"), то вывести на экран фразу "Молодец! Верно", иначе - вывести "неверно!".

Answer 1

Begin
WriteLn('Переведи слово "Windows" на русский:');
if(ReadString().ToLower() = 'окна') then // Функция "ToLower()" "опускает" регистр букв. То есть если вы введёте "ОкНа", программа засчитает ответ.
WriteLn('Молодец! Верно')
else
WriteLn('Неверно!');
end.

Answer 2

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

pascalCopy code
program TranslateWindows;

var
  userInput: string;

begin
  writeln('Переведите слово "Windows" на русский язык:');
  readln(userInput);

  if userInput = 'окна' then
    writeln('Молодец! Верно.')
  else
    writeln('Неверно!');
end.

При выполнении программы она будет запрашивать у пользователя перевод слова "Windows" на русский язык. После ввода ответа пользователем, программа проверит, является ли ответ верным (равным "окна"). Если ответ верен, то на экран будет выведено "Молодец! Верно.". В противном случае будет выведено "Неверно!".