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

Uses Crt;

var
a,b:real;

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

София 2019-07-15 08:29:35

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

Милана Шуганкова 2019-07-15 08:39:35

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

Вячеслав Шупенко 2019-07-15 08:48:30

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

Толя Шакутьев 2019-07-15 08:57:54

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

Сергей Колатанов 2019-07-15 09:03:28

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

Михон 2019-07-15 09:08:36

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

О проекте

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

Добро пожаловать!