Уральские бифштексы на паскале

@karinok · Регистрация: 19.05.2009

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

https://www.cyberforum.ru/cpp-... 12323.html
Есть уже тема, но на си. Как решить эту же задачу, но на паскале? Есть код, но он не проходит тест, хотя вроде все работает. В чем может быть ошибка?

Pascal

var
    k,n,x : longint;
begin
read(n,k);
if n>k then
if (n mod k=0) then
x:=2*(n div k)
else
x:=(2*(n div k))+1;
if n<=k then x:=2;
 
write(x);
end.

@abit · 08.02.2013, 20:37

Pascal

var n,k,t:longint;
 
begin
    read(n,k);
    t := 2 * ( n div k ) + integer( n mod k <> 0 ) 
    + integer( ( n mod k > k / 2 ) or (n < k) );
    writeln(t);
end.

@karinok · 08.02.2013, 22:27 **[ТС]**

Спасибо! А можно еще пояснить что за integer в примере и что он делает? Сам пока только осваиваю паскаль.

@abit · 09.02.2013, 00:39

Сообщение от karinok

Спасибо! А можно еще пояснить что за integer в примере и что он делает? Сам пока только осваиваю паскаль.

это функция принудительного приведения типов к целому числу... зависит от контекста, в данном случае контекст таков что она переводит Boolean -> Integer по правилу если Boolean-выражение истинно, то вернёт 1, если ложно - то 0.

@karinok · 09.02.2013, 20:15 **[ТС]**

Ага, понятно теперь. Спасибо еще раз!

@karinok 0 / 0 / 0 Регистрация: 19.05.2009 Сообщений: 13
	08.02.2013, 22:27 [ТС]	3
	Спасибо! А можно еще пояснить что за integer в примере и что он делает? Сам пока только осваиваю паскаль. 0

@abit 390 / 365 / 111 Регистрация: 03.02.2013 Сообщений: 1,120
	09.02.2013, 00:39	4
	Сообщение от karinok Спасибо! А можно еще пояснить что за integer в примере и что он делает? Сам пока только осваиваю паскаль. это функция принудительного приведения типов к целому числу... зависит от контекста, в данном случае контекст таков что она переводит Boolean -> Integer по правилу если Boolean-выражение истинно, то вернёт 1, если ложно - то 0. 0

@karinok 0 / 0 / 0 Регистрация: 19.05.2009 Сообщений: 13
	09.02.2013, 20:15 [ТС]	5
	Ага, понятно теперь. Спасибо еще раз! 0