Помогите пожалуйста )Срочно! Задача в Pascal. Введенное число возводится в квадрат, если оно большее 0 или не меняется. Нужно программу ( подробно) и блок-схему.
Ответы
Ответ дал:
0
var n:integer;
begin
writeln('input n'); readln(n);
if n>0 then
begin
n:=sqr(n);
writeln('n=',n);
end
else writeln('n<=0');
end.
Думаю, с блок-схемой по программе проблем не будет.)
begin
writeln('input n'); readln(n);
if n>0 then
begin
n:=sqr(n);
writeln('n=',n);
end
else writeln('n<=0');
end.
Думаю, с блок-схемой по программе проблем не будет.)
Ответ дал:
0
var A:integer;
begin
writeln('Введи число');
readln(A);
if A>=0 then begin A:=A*A; writeln(A); end;
else writeln(A);
readln;
end.
begin
writeln('Введи число');
readln(A);
if A>=0 then begin A:=A*A; writeln(A); end;
else writeln(A);
readln;
end.
Приложения:
![](https://st.uroker.com/files/496/496f284524f0e61175e8cd97077d5522.png)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад