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

Question

Информатика

Димуля

30 июня, 23:13

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

+3

Ответы (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.