Регистрация
katya8998
18.10.2022 02:13
Информатика
Есть ответ 👍

Составить программу на паскале дано натуральное число,найти сумму цифр этого числа!

280
296
Посмотреть ответы 2

Ответы на вопрос:

melisa9999
melisa9999
4,5(73 оценок)

program program1; vari,sum,n,code: integer; s: string; beginwrite('введите натуральноее число: '); readln(s);

sum: =0; for i : = 1 to length(s) dobeginval(s[i], n, code); sum: =sum + n; end; writeln('сумма цифр: ', sum)end.

Olga692010
Olga692010
4,7(6 оценок)
Var i,x: integer; n: real; begin x: =1; readln(n); if n< > 0 then begin while frac(n)< > 0 do begin n: =n*10; x: =x*10; end; if frac(x/n)=0 then writeln(x/n) else writeln(x,'/',n); end else writeln('1000000'); end.

Популярно: Информатика