Предмет: Информатика,
автор: Zayac0
Составьте программу, которая из трех введенных с клавиатуры чисел возводит в квадрат положительные, а отрицательные оставляет без изменения.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Русский язык,
автор: krasn2810
Предмет: Математика,
автор: nikitaermakova7878
Предмет: Математика,
автор: saniazrpv
Предмет: Математика,
автор: farh83
Предмет: Математика,
автор: MNVCZ2512