Pascal ABC.net.Помогите пожалуйста. Уже 2 денька бьюсь над задачкой и никак

Pascal ABC.net.Помогите пожалуйста. Теснее 2 дня бьюсь над задачкой и никак не выходит.Условие задачки:
"По заданному числу "a" обусловьте является ли оно целым.Если данное число является целым, то в выходной файл output.txt выведите сумму цифр этого числа, в неприятном случае выведите корень квадратный из модуля этого числа."
У меня есть начало. Только самое-самое начало.Я не разумею, как можно сосчитать сумму цифр числа, если неизвестно, сколько в нём цифр.
Вот начало программы:
Var a:real;
Begin
Readln(a);
a:=абс(a);
If a-trunc(a)=0 then //Здесь у меня проблема
Else a:=sqrt(a);
Writeln(a)
End.

Эвелина Ардышева 2019-09-04 23:05:13

Нас пока что ничему не учат.Только LOGO.Но я не хотела его учить, и поэтому подошла к учителю с просьбой обучить меня писать на Pascal.Но мне растолковали только то, что сначала пишут Var, переменные, их тип, а потом Begin.В конце End.Все остальное я ищу в интернете на каникулах, а задачи забираю у учителя после уроков.

Виктория Аснович 2019-09-04 23:14:00

Но с одним вебом тяжело совладать. Потому я спрашиваю у людей.

Leonid Cimarkin 2019-09-04 23:17:06

Лого - это сильно урезанный Паскаль.

Силенский Артём 2019-09-04 23:21:03

От части это так.

Руслан 2019-09-04 23:27:11

Частично)

Алла Моргайло 2019-09-04 23:35:25

Но Pascal желая один, а LOGO в различных странах безусловно различный.

Люда Шешеро 2019-09-04 23:38:13

Я вот тут увидел один плохой момент в условии. Если число нецелое, предлагается вычислить его квадратный корень.

Алина Жилюк 2019-09-04 23:46:09

Т.е. придется ограничиться все же числовыми типами и не прибегать к символьной строке. Числа с плавающей точкой в случайной разрядности реализовывать достаточно трудно

Владислав Амбурцев 2019-09-04 23:54:32

Предлагаю вводить данные в формате double

Тема Конкилов 2019-09-05 00:03:50

А еще - я Для вас выслал Собственное известье - щелкните "конвертик".