Не могу никак решить задачу.

[Encoded]

Учитель с Информатики дал задачу.
Дано действительное число p. В первой строке вывести его закругленное целое значение, во втором - его целую часть, в третьем - его дробную часть (один знак после запятой).
Входные данные.
3.5
Исходные данные.
4
3
0.5

Очень хочу ее решить но не получается.

Только начинаю учить этот язык...

Возможно кто посоветует хороший сайт с хорошим объяснением и примерами.

[Alex11223]

А функцию округления (round) можно использовать?

И не меняй шрифт текста, особенно на Comic Sans )

[Encoded]

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

А функцию округления (round) можно использовать?

Если честно то не знаю можно ли. Но если без нее никак то можно сделать так как будет я проверю и потом дам на проверку учителю. И самое главное мне бы понять как его делать а не просто готовый код набрать. Я думаю Вы меня поняли.

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

И не меняй шрифт текста, особенно на Comic Sans )

Сменил на стандартный.

[Alex11223]

Тогда как-то так это может выглядеть. Не забудь дописать begin/end., ввод р и т.п.

var okr, cel:integer;
drob, p:real;
...
okr:=round(p);
if (p<okr)  then cel:=okr-1  //если округлило в большую сторону
else //если в меньшую
   сel:=okr;
drob:=p-cel; 
writeln(okr); //вывод округленного
writeln(cel); //вывод целой части
writeln(drob); //вывод дробной части

[Encoded]

Всем спасибо! Задачу сделал. Тему можно закрывать.