Pascal abc.net. уже 2 дня бьюсь над и никак не выходит.условие : "по заданному числу "a" определите является ли оно целым.если заданное число является целым, то в выходной файл output.txt выведите сумму цифр этого числа, в противном случае выведите корень квадратный из модуля этого числа." у меня есть начало. только самое-самое начало.я не понимаю, как можно сосчитать сумму цифр числа, если неизвестно, сколько в нём цифр. вот начало программы: var a: real; begin readln(a); a: =abs(a); if a-trunc(a)=0 then //тут у меня проблема else a: =sqrt(a); writeln(a) end.
a:real;
x,res:integer;
begin
readln(a);
if a = trunc(a) then
begin
x:=trunc(a);
while x<>0 do
begin
res:=res + x mod 10;
x:= x div 10;
end;
writeln(res);
end
else
writeln(sqrt( abs(a) ));
end.