Ответы на вопрос:
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.
Популярно: Информатика
-
aisharamazanovaАйша27.05.2023 12:22
-
Medvedi4726.12.2022 11:11
-
Сафина365126.10.2022 22:36
-
Виктория678904515.06.2022 05:30
-
ArtemDeineka02.06.2020 08:18
-
elyavlasova29.01.2021 10:56
-
ЕВБ06.02.2022 09:27
-
tataynka113.09.2022 19:58
-
Arinacoco16.11.2022 09:42
-
Школа22111126.07.2020 02:20