Форумы-->Форум для внеигровых тем-->
1|2
| Автор | Помощь по "Паскаль" |
|---|
| а где твоя задачка?)) | var
a,b,c,t:ineger;
begin
read(a,b,c);
if (b>a)
begin
t:=b;
b:=a;
a:=t;
end;
c:=(a div c)-(b div c);
if (b<=0)
c:=c+1;
writeln(c);
end. | | А вообще мог бы и сам погуглить синтаксис минут 15. О том, что сам алгоритм придумать мог я уже и не говорю. Обленился народ... | var
a,b,c,t:ineger;
begin
read(a,b,c);
if (b>a)
begin
t:=b;
b:=a;
a:=t;
end;
t:=(a div c)-(b div c);
if (b<=0)
t:=t+1;
if ((b mod c=0) and (a modc=0))
t:=t+1;
writeln(t);
end.
Самофикс. Не учел этот случай. | я Паскаль не изучал ни разу)) только через месяц предстоит это задание)
но мне интересно... там указанно (-1000000<=A,B<=1000000)
это где то отображается в написанном тексте?)) | для BRIZ-ing:
Да, ты прав... Я почему-то подумал что от -10000 до 10000.
Тогда еще один фикс
a,b,c,t:ineger;
Заменить на
a,b,c,t:longint;
Вообще значения влияют на тип данных. Просто я привык к другим языкам, у которых int хранит больше 32000+ |
1|2К списку тем
|
