Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода исходных данных (например, с помощью Readln) и вывода результатов на экран. Ввод исходных данных и ввод результатов должен производить в «теле» основной программы!Написать программу, которая проверяет – можно ли представить заданное значение n в виде произведения трех последовательных натуральных чисел — Pascal(Паскаль)

uses crt;
function Pr3(n:longint):boolean;
var a:integer;
begin
a:=1;
while a*(a+1)*(a+2)<n do
a:=a+1;
if a*(a+1)*(a+2)=n then Pr3:=true
else Pr3:=false;
end;
var n:longint;
begin
clrscr;
write('n=');
readln(n);
write(Pr3(n));
readln
end.

Похожие записи/страницы:

Leave a Comment

2 + 1 =