Срочно, в чем может быть проблема? ДАЮ 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.
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.
More Questions From This User See All
Answers & Comments
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 будет видна структура.