Question

РЕБЯТА СРОЧНО ПОМОГИТЕ ДАЮ 50 БАЛЛОВ!!!!!
ПОЖАЛУЙСТА РЕШИТЕ 4 ЗАДАЧИ ИЛИ ХОТЯ БЫ 2 ПРОШУУУУУУУ

Answer 1

1)
program znanija2;
var answer:integer;
begin
   writeln('Вычисли: (5*8)-2*4');
   readln(answer);
   if answer = ((5*8)-2*4) then
      writeln('Правильно')
   else
      writeln('Ты ошибся');
end.
 

2)

program znanija3;
var answer:string;
begin
  read(answer);
  if answer = 'мужской' then
    writeln('Вы - защитник отечества')
  else if answer = 'женский' then
    writeln('Вам не повезло - женщины не служат в арми')
end.



3)
 

program znanija3;
var answer:string;
begin
   writeln('Переведите слово Windows на русский язык');
   readln(answer);
   if answer = 'окна' then
    writeln('Молодец! Верно')
   else
    writeln('Неверно')
end.


4)


program znanija3;
var answer:string;
begin
   writeln('Переведите слово Run на русский язык');
   readln(answer);
   if answer = 'бегать' then
    writeln('Верно!')
   else
    writeln('Неправильно')
end.

Answer 2

P.S. Название проги измени чтобы не подумали что списал

Answer 3

СПАСИБО БОЛЬШОЕ ДОБРЕЙШИЙ ЧЕЛОВЕК !

Answer 4

Да не за что