Даны три действительных числа возвести в квадрат те из них, значения которых отрицательны. неотрицательные оставить без изменения(Pascal)напишите программу
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Синформатикой 8 с 13 по 16 буду : )
Автор: алексей-Ветошкин
Найти минимальное число из 3 чисел.
Автор: Рудаков Бахтовар
Информатика, основы алгоритмизации решить и 9 я буду очень благодарна
Автор: Shumnova42
Сколько лет автору вопроса, если его возраст в 3 раза меньше суммы возрастов его братьев (1000102, 11102)?
Автор: Киларджиева Диана440
решить Задачу по информатике.
Автор: Николаевич
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.