Предмет: Информатика,
автор: inaikonnikow
Составьте программу, которая из трёх введённых с клавиатуры чисел возводит в квадрат положительные, а отрицательные оставляет зделать в турбо поскале пж зделайти ели можно с фото.
Ответы
Автор ответа:
0
program turbo;
uses crt;
var
i,n:integer;
begin
clrscr;
for i: 1 to 3 do
begin
readln(n);
if n>= 0 then
writeln(n,'^2 =',sqr(n));
end;
writeln('press enter');
readln;
end.
Приложения:
![](https://files.topotvet.com/i/66e/66ec55fb5d72df1a28543bf214d60b7e.png)
![](https://files.topotvet.com/i/b49/b495896b73fb261db567071d2e508f40.png)
Похожие вопросы
Предмет: Українська мова,
автор: Катюнічкаа
Предмет: Английский язык,
автор: Roxi16
Предмет: Русский язык,
автор: ziklex
Предмет: Русский язык,
автор: toatli