Даны три действительных числа возвести в квадрат те из них, значения которых отрицательны. неотрицательные оставить без изменения(Pascal)напишите программу
hello120
2
18.02.2021 00:25
1
Другие вопросы по теме Информатика
Rookgolf60
22.04.2020 11:18
rrrr10
22.04.2020 11:18
ajamshid1976p042ct
26.08.2019 11:50
fakersot
19.09.2019 11:10
Катикини
19.09.2019 11:10
ketrindemey5
19.09.2019 11:10
yliana121
19.09.2019 11:10
ilsafsanatullov
19.09.2019 11:10
Флаксария
21.05.2019 05:00
сонечка281006
22.01.2021 09:11
Популярные вопросы
- Составить 3-4 предложения про город моей мечты с переводом....
2 - Решить ! : волк бросился вдогонку за зайцем, когда тот был на расстояние...
3 - Разделить на слоги слова ёлочка, друзья...
3 - Нужно написать письмо на тему «что я от школы»...
3 - Какие из перечисленных веществ взаимодействуют с оксидом бария : co2,naoh,p2o5,hno3,na2o,h2o,sio2?...
1 - Серная кислота не реагирует с: а хлоридом натрия, б хлоридом бария,...
1 - Решить это уравнение: х+23=7*(х-1)...
3 - Нужно визначення поняття унiверсал icторiя украины 8 класс....
2 - Напишите 30 последовательности после миллиона ну например миллион,...
3 - (3- четыри седмых)*x=пять целых две третих...
2
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.