Написать программу, которая проверяет, правильно ли человек ответил на вопрос «С...

June 2022 2 16 Report

Написать программу, которая проверяет, правильно ли человек ответил на вопрос «Сколько будет 2*2? Написать программу в Паскале, пожалуйста )

Macleopard

Var a:integer;
begin
writeln('Сколько будет 2*2?');
read(a);
if a=4 then writeln('Правильно') else writeln('Неправильно');
end.

1 votes Thanks 1

A1dar Надо же, 2*2=2?

arianalovesjb нет, 2*2=4

A1dar Так исправьте, пока не поздно

A1dar Var n: integer;
begin
writeln('Сколько будет 2*2?');
read(n);
if n = 4 then writeln('Правильно!')
else writeln('Неправильно!')
end.

2 votes Thanks 1

arianalovesjb Спасибо, ответ правильный