Регистрация
SashkaFlavki
03.09.2020 07:29
Информатика
Есть ответ 👍

Напишите, пожалуйста, программу по информатике PascalABC

229
333
Посмотреть ответы 1

Ответы на вопрос:

денис1139
денис1139
4,8(78 оценок)

program num1; uses crt; var a,b,c : real; begin clrscr; write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); if (a=b) or (b=c) or (c=a) then write ('высказывание < среди трех данных целых чисел есть хотя бы одна пара > истино') else write('высказывание < среди трех данных целых чисел есть хотя бы одна пара > ложно'); end.

Популярно: Информатика