Question

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.

Answer 1

Var
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.

Answer 2

Для того чтобы посчитать сумму цифр числа, можно использовать цикл, который будет выделять по одной цифре из числа и складывать их. Вот пример программы на Pascal, которая решает вашу задачу:

Var a: real; sum, digit: integer; absA: real; Begin sum := 0; Readln(a); absA := abs(a); If frac(absA) = 0 then begin while absA > 0 do begin digit := trunc(absA) mod 10; sum := sum + digit; absA := absA / 10; end; Writeln(sum); end else begin Writeln(sqrt(absA)); end; End.

Этот код сначала считывает число a, затем проверяет, является ли оно целым. Если да, то в цикле извлекаются по одной цифре из числа и складываются. Если число нецелое, то выводится квадратный корень из модуля этого числа.