Составьте программу в паскале, которая из трех чисел, введенных с клавиатуры, возводит в квадрат положительные, а отрицательные оставляет без изменения
itsnastyad
2
12.04.2020 19:39
1
Другие вопросы по теме Информатика
gulya19860630
04.07.2019 21:20
lizadyugovskay
19.11.2020 21:08
HaskyZ0nG
19.11.2020 21:08
Мур3иk
16.09.2019 20:43
protasovarsenip0a3kn
26.11.2020 14:30
asadhfdgj
26.11.2020 14:30
амон2288
26.11.2020 14:32
Bioloqq
30.05.2023 03:23
Популярные вопросы
- 8-тапсырма. Ойтаразы. «Попс» формуласын қолданып, өлеңдегі «Бір...
2 - Из точки О проведены три луча: OA,OB и OC. Известно, что угол...
3 - Зар заман ақындарының өзіне тән ерекшелігіне тоқталыңыз. (5-6...
3 - Какой эпизод из сказки о царе Берендее или описание вам больше...
2 - 3-тапсырма. Тақырып бойынша диалогті жалғастырынңдар. Ойларыңды...
2 - Найти dy, d²y для функции y=1/x...
2 - на сторонах ab и cd параллелограмма abcd отметили точки м и...
3 - Перевод TaskEx1, page 26 Find eight morewords. (in workbook)Task...
1 - Якщо всі прозміри у 4 рази менше? 3. Квадрат зі стороною 1дм...
3 - Химия 8 класс контрольная решите...
1
program plan;
var
a,b,c : real;
begin
readln(a,b,c);
if a >0 then
a := a *a;
if b >0 then
b := b *b;
if c >0 then
c := c *c;
end.