1
Даны два числа если они положительные , то сложить их,
иначе перемножить. Нужно написать на паскаль.
Ответы
Ответ дал:
1
program nen;
var
a,b :real;
begin
readln(a,b);
if (a>0) and (b>0) then
write('Сумма чисел равна ', a + b)
else
writeln('Произведение чисел равно ', a *b);
end.
minkin55555:
спасибо
Вас заинтересует
2 месяца назад
2 месяца назад
3 месяца назад
1 год назад
1 год назад
7 лет назад