var
a:real;
begin
readln (a);
a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа}
writeln ('Целая часть числа а равна ',a)
end.
если я правильно понял смысл
// PascalABC.Net
function IsNice(n:longint):boolean;
// Отвечает на вопрос, является ли число красивым
var
d,nd,sd:byte;
begin
sd:=0; nd:=0;
repeat
d:=n mod 10;
sd:=sd+d; Inc(nd);
n:=n div 10
until n=0;
IsNice:=(sd mod nd = 0)
end;
var
i,n,k:longint;
begin
Write('Порядковый номер "красивого" числа: '); Read(n);
i:=1; k:=0;
repeat
if IsNice(i) then Inc(k);
if k<>n then Inc(i)
until k=n;
Writeln('Красивое число равно ',i)
end.
<em><u>Тестовое решение:</u></em>
Порядковый номер "красивого" числа: 15
Красивое число равно 20
Ctrl+Tab-переключение между закладками или окнами одного приложения
Ctrl+Shift-переключить язык
Ctrl+Alt+Delete-открытие окна "Диспетчер задач" или "Безопасность Windows"
Ctrl+Shift+Esc-открытие окна "Диспетчер задач"
Ctrl+Esc-открытие/закрытие меню "Пуск"
Ctrl+C-копировать в буфер обмена
Ctrl+Insert-копировать в буфер обмена
Ctrl+V-вставить из буфера обмена
Ctrl+X-вырезать в буфер обмена
Ctrl+Z-отменить (назад)
Ctrl+Y-отменить (вперёд)
Ctrl+A-выделить всё
Ctrl+S-сохранить
Ctrl+W-закрыть текущую вкладку окна
Ctrl+R-обновить
Ctrl+Backspace-удалить слово (удаляет влево)
Ctrl+Delete-удалить слово (удаляет вправо)
Ctrl+Home (End)-переместить курсор в начало (конец) текста
Ctrl+Shift+Пробел-в Word: Неразрывный пробел
Ctrl+Shift+Дефис-в Word: Неразрывный дефис
Ctrl+Enter-в Word: Разрыв страницы
Ctrl+P-печать документа