Kierot 25 ноября 2019 в 07:56
Составить программу Turbo Pascal 7.01 : заданы числа a и b. Определить, эти числа одного или разных знаков
Составить программу Turbo Pascal 7.01 : заданы числа a и b. Определить, эти числа одного или разных знаков
Uses Crt;
var
a,b:real;
begin
ClrScr;
Write(Введите два числа через пробел: );
Read(a,b);
if a*bgt;0 then Writeln(Числа одного знака)
else Writeln(Числа разных знаков);
ReadKey
end.
var
a,b:real;
begin
ClrScr;
Write(Введите два числа через пробел: );
Read(a,b);
if a*bgt;0 then Writeln(Числа одного знака)
else Writeln(Числа разных знаков);
ReadKey
end.
Компьютеры и вычисления
462
0
Для комментирования необходимо зарегистрироваться на сайте