вставить ограничения

@Le_Xa · Регистрация: 17.11.2010

Author24 — интернет-сервис помощи студентам

Pascal

program doski;
var n,l,c,m,s1,s2,s3,s4:integer;
begin
writeln ('ââåäèòå 4 ÷èñëà');
read (n,l,c,m);
s1:=l div m ;
s2:=l div m ;
s3:=l div m ;
s4:=s1+s2+s3;
if s4>=c then
write('yes')
else write ('no')
end.

вот программа которую я написал в Pascal ABC,помогите вставить в нее ограничение
Ограничения:1<=n,c,l,m<=10^3.

@Puporev · 23.11.2010, 19:45

Pascal

program doski;
var n,l,c,m,s1,s2,s3,s4:integer;
begin
repeat
writeln ('введите 4 числа от 1 до 1000');
readln (n,l,c,m);
until(n>=1)and(n<=1000)and(l>=1)and(l<=1000)
and (c>=1)and(c<=1000)and (m>=1)and(m<=1000)
s1:=l div m ;
s2:=l div m ;
s3:=l div m ;
s4:=s1+s2+s3;
if s4>=c then
write('yes')
else write ('no')
end.

	23.11.2010, 19:45