Ответы
Ответ дал:
0
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a,b:real;
Write('Введите два числа через пробел: ');
Read(a,b);
if a*b>0 then Writeln('Числа одного знака')
else Writeln('Числа разных знаков')
end.
begin
var a,b:real;
Write('Введите два числа через пробел: ');
Read(a,b);
if a*b>0 then Writeln('Числа одного знака')
else Writeln('Числа разных знаков')
end.
Ответ дал:
0
Тогда открывайте вопрос заново и пишите там, что нужна программа под Turbo Pascal 7.01
Ответ дал:
0
Скажите, как исправить её?
Ответ дал:
0
Правила запрещают исправлять вопрос, если на него дан ответ
Ответ дал:
0
Да не вопрос, а программу, может быть получиться.
Ответ дал:
0
А вопрос я создал новый
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад