Войти Регистрация Спроси ai-bota

Дано число n. найти сумму цифр числа

Ответ:

cccggg93

24.05.2020 19:16

Программа на Object Pascal:

uses crt;
var n,s: integer;
begin
write('n='); readln(n);
while n>=1 do
begin
inc(s,n mod 10);
n:=n div 10;
end;
write(s);
readln;
end.

0,0(0 оценок)

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

irajuta82

12.08.2020 11:26

Что токое интернет? ответть...

умница06092006

11.04.2022 16:05

Задан случайный цифровой массив. Ввести с клавиатуры цифру и вывести на консоль сумму всех цифр в массиве, превышающих введенную. Сделайте в паскале....

DianaSmile111

19.02.2021 19:22

Какой код используют для кодирования информации в компьютере? Процесс преобразования информации в форму, воспринимаемую компьютером, называется...

Pузик

13.10.2022 08:17

1. Определите, что будет выведено на экран при выполнении программы при значениях a и b: (5, 5); (20, 20); (20, 10). Program logika; var a, b : real; x : boolean; begin readln(a,...

Аnюtоchкa

27.08.2020 09:14

БД содержит информацию о студентах института: ФИО, номер паспорта, серия, адрес проживания, пол, дата рождения. Какого типа должны быть поля? * 1)текстовое, числовое, числовое,...

slaviktaran00

09.10.2022 08:06

Зачем документ нужно правильно оформлять?...

Радькова32

25.09.2022 21:33

Рабы могли поднять восстание потому что...

TOFeFE

25.09.2022 21:33

Не, вяселы, не пусциць, не , не хацець, не ласкавы, не высоки, не выехау, не знайсци, не сциханы, не умець, не вялики, на винаваты, не ляжы, не цикавы, не знайсци, не пасыпаны...

BlackJuice

25.09.2022 21:33

Написать цепочку превращений: cuo cu(oh)2 cu cucl2 cuso4 cus...

сева167

25.09.2022 21:33

720/х-720/(х+2)=18 решите через дискриминант....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку