Информатика Архивный вопрос

Определите знак произведения ab, если a и b целые числа

Нет комментариев

Ответы

Гость

//Версия написания (по просьбе Эникей): 
//PascalABCCompiler.Core v3.3.0.1540 (16.09.2017)
var 
    a, b: integer;
begin 
    write('Введите числа a и b через пробел и нажмите "enter": '); 
    read(a, b);
    write('Знак произведения - '); 
    if a*b < 0 then write('"-"') else if a*b > 0 then write('"+"') else write('//Произведение равно нулю');
end.

Нет комментариев

Похожие вопросы