Составьте программу в паскале, которая из трех чисел, введенных с клавиатуры, возводит в квадрат положительные, а отрицательные оставляет без изменения. Дам 25 баллов! Помогите пожалуйста
Ответы
Ответ дал:
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.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад
7 лет назад