Регистрация
Войти
Стать экспертом Правила
Информатика

Пожалуйста посчитайте ПОЖАЛУЙСТА!уровень 1 Задание 1

ОТВЕТЫ
var a,b,c: integer;
begin
write('a, b, c:');
readln(a,b,c);
writeln((a=b)and(a=c)and(b=c));
end.

Пример:
a, b, c:
5 8 6
False
781
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам