-Проверьте, есть ли среди трех заданных чисел равные. Программку в Паскале напишите )
-Проверьте, есть ли среди трех заданных чисел равные. Программку в Паскале напишите )
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c:integer; begin readln(a,b,c); if((a=b)or(b=c)or(c=a)) then writeln(':)') else writeln(':(') end.
Не нашли ответ?
Похожие вопросы