СОСТАВТЕ ПРОГРАММУ КОТОРАЯ ПРОВЕРЯЕТ РАВНЫ ЛИ 3 ВВЕДЁНЫХ ЧИСЛА И ВЫВОДИТ ** ЕКРАН...

Question

СОСТАВТЕ ПРОГРАММУ КОТОРАЯ ПРОВЕРЯЕТ РАВНЫ ЛИ 3 ВВЕДЁНЫХ ЧИСЛА И ВЫВОДИТ НА ЕКРАН СООТВЕТСТВУЮЩЕЕ СООБЩЕНИЕ "РАВНЫ " ЛИБО "НЕ РАВНЫ"

Answer 1

VAR A, I: INTEGER;
BEGIN
READLN(A, I);
WRITELN((A = I ? "РАВНЫ" : "НЕ РАВНЫ"));
END.

Comments

В КУБЕЙСИКЕ

---

СМЫСЛ НЕ МЕНЯЕТСЯ, Я ТОЛЬКО ВАСИКА, ВАСИКА 6.0 И ВАСИКАдотНЕТ ЗНАЮ

---

НУ ПЛИЗ В КУБЕЙСИКЕ

---

ДУМАЮ, ТАК

---

DIM A, I AS INTEGER
READ A, I
IF (A = I) THEN
PRINT "="
ELSE
PRINT "NO ="
END IF

---

ПИШЕТ НЕТ ДАННЫХ И ВЫДЕЛЯЕТ СЛОВО READ

---

ВСУНЬ ТУДА ОПЕРАТОР СЧИТЫВАНИЯ, Я ЕГО НЕ ЗНАЮ