Question

Срочно, в чем может быть проблема? ДАЮ 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.

Answer 1

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

 end  { не хватает }  

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

   k:=k+1;

{  end  лишний }

 Writeln(k);

end.

Объяснение:

Проблема в том, что end указан не там, где надо и это ломает синтаксис программы, посему компилятор ругается. По хорошему нужно было привести сообщение компилятора, а не спрашивать что не так. Чьлбы не ошибваться с логикой, пишите программу с отступами 0 будет видна структура.