Составить алгоритм вычисления суммы двух чисел,если они оба отрицательные,в противном случае вычисления их произведения
Составить алгоритм вычисления суммы двух чисел,если они оба отрицательные,в противном случае вычисления их произведения
Гость
Ответ(ы) на вопрос:
Гостьvar a,b:integer;
begin
writeln('Введите два числа: ');
readln(a,b);
if (a<0) and (b<0) then writeln(a+b)
else writeln(a*b);
end.
Гостьvar a,b,res:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if (a<0)and(b<0) then res:=a+b else res:=a*b;
writeln('Результат = ',res);
end.
Пример:
a = -5
b = 8
Результат = -40
Блок-схема - в прилагаемом файле.
Не нашли ответ?
Похожие вопросы