Регистрация
zild228
16.02.2021 19:24
Информатика
Есть ответ 👍

Решите Буду очень благодарна!

104
217
Посмотреть ответы 1

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

мирахуснатдинова
мирахуснатдинова
4,8(81 оценок)
1. var a,b: integer; begin readln(a); readln(b); if ((a> 0) and (b> 0)) or ((a< 0) and (b< 0))  writeln('у обоих чисел одинаковые знаки') else writeln('у чисел разные знаки') ; end.2.var a,b: integer; beginreadln(a); readln(b); if (a mod 2=0) and (b mod 2=0) thenwriteln('высказывание истинно')elsewriteln('высказывание ложно')  end.

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