Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Написать программу на Pacal
задачи:
1.Дано два ненулевых числа проверить истинность высказывания "числа имеют разные знаки".
2. Дано два целых числа проверить истинность высказывания " оба числа четные".

Ответ оставил Гость

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;
begin
readln(a);
readln(b);
if (a mod 2=0) And (b mod 2=0) then
writeln(Высказывание истинно)
else
writeln(Высказывание ложно) 
end.