Подскажите пжДаны два числа А и В.Найти их произведение, если оба числа положительные, иначе найти сумму.
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.
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
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Архипп
В алгоритме "Портрет Робота,, допишите команды ...
2019-01-22 01:07:46
Агриппа
Сколько бит будет занято на носителе информации документов из ...
2019-01-22 01:07:26
Tatafaka
Слово «диплом» преобразуйте в слово «дипломант». ...
2019-01-22 01:07:15
Cekus
Написать программу, которая n раз выводит на экран слова ...
2019-01-22 01:06:29