Срочно, в чем может быть проблема? ДАЮ 50 БАЛЛОВ!!!

program z51;

var

n,m,p,k:integer;

begin

n:=35;

m:=15;

p:=4;

k:=0;

if (n<=35) or (p<3) then

begin

k:= m div(p-2);

if (m div(p-2)<>0) then

begin

k:=(m+n)div p+k;

k:=k+1;

end

else

begin

k:=(n-m)mod(p-1)+k;

k:=k-1;

end

else

if ((m+n)div(p+3)>2) then

k:=k+1;

end

Writeln(k);

end.

Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.