Регистрация Вход
Информатика Студенческий Felokus
Решено

Подскажите пжДаны два числа А и В.Найти их произведение, если оба числа положительные, иначе найти сумму.

51
ОТВЕТЫ
Var
i :integer;
a,b :real;
begin
write(Введите число А: );readln(a);
write(Введите число B: );readln(b);
if ((agt;0) and (bgt;0)) then write(a*b)
else write(a+b);
readln;
end.

123
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте