Составьте программу, которая из трех введенных с клавиатуры чисел возводит в квадрат положительные, а отрицательные оставляет без изменения.

Question

Информатика

Ниноша

19 июля, 05:15

Составьте программу, которая из трех введенных с клавиатуры чисел возводит в квадрат положительные, а отрицательные оставляет без изменения.

+2

Ответы (1)

Знаете ответ на вопрос?

Антоша · Answer 1

Var a:array[1 ... 3] of integer;

i:integer;

begin

writeln ('Введите 3 числа') ;

for i:=1 to 3 do

readln (a[i]) ;

for i:=1 to 3 do

if a[i]>0 then writeln (sqr (a[i])) ;

readln;

end.