Помогите пожалуйста )Срочно! Задача в Pascal. Введенное число возводится в квадрат, если оно большее 0 или не меняется. Нужно программу ( подробно) и блок-схему.
Помогите пожалуйста )Срочно! Задача в Pascal. Введенное число возводится в квадрат, если оно большее 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.
Думаю, с блок-схемой по программе проблем не будет.)
Не нашли ответ?
Похожие вопросы