Ira019
13.03.2023 02:14

Даны три действительных числа возвести в квадрат те из них, значения которых отрицательны. неотрицательные оставить без изменения(Pascal)напишите программу​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
nurzhamal0801
20.03.2021 00:32

var a, b, c: real;

begin

 readln(a, b, c);

 if (a<0) then

   a:=(power (a,2));

 if (b<0) then

   b:=(power(b,2));

 if (c<0) then

   c:=(power(c,2));

 writeln(a, ' ', b, ' ', c);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота