Составить программу Turbo Pascal 7.01 : заданы числа a и b. Определить, эти числа одного...

Question

Составить программу Turbo Pascal 7.01 : заданы числа a и b. Определить, эти числа одного или разных знаков

Answer 1

Uses Crt;

var
  a,b:real;
 
begin
  ClrScr;
  Write('Введите два числа через пробел: ');
  Read(a,b);
  if a*b>0 then Writeln('Числа одного знака')
  else Writeln('Числа разных знаков');
  ReadKey
end.

---

---

Comments

crt модуль не найден .-.

---

У вас кривая версия Паскаля

---

begin
var
a,b:real;
Write('Введите два числа через пробел: ');
Read(a,b);
if a*b>0 then Writeln('Числа одного знака')
else Writeln('Числа разных знаков');

end.

---

вот так заработал

---

Еще раЗ: Версия Ваша КРИВАЯ.

---

Либо у Вас другой Паскаль, не Turbo/Borland. Потому что ReadKey находится в Crt, и если выкинуть ReadKey, окно вывода после выполнения программы мгновенно схлопнется и Вы не увидите результат.