tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано шестизначное число. найти
Дано шестизначное число. найти сумму его цифр. величины для хранения всех шести цифр числа не использовать. сделать программу в паскале
katyanosa
3 22.09.2019 10:20
6
Ответы
Anastasia13577
08.10.2020 09:16
Var a,s:integer;
begin
readln(a);
s:=0;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln('s = ',s);
end.
Пример:
123456
s = 21
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Nikitosqwerty
24.08.2019 08:00
6класс ! информатика ! какое максимальное количество столбцов может содержать таблица ?...
kolart
25.02.2021 11:42
Определите значения переменных х и у после выполнения следующего фрагмента программы:x:=1;while x =10 dobegin y:=x*x+4; x:=x+2;end;write( x= , x, y= , y);у=…х=…...
isakdzhanova
13.12.2021 23:16
БОО зЗЗИиИ тЕЕллГГрРАамМм - @united brai nly (Еззз ППрррОобБбеЕЛОоОВВ)...
Жанел130107
13.12.2021 23:16
БббоОотТ ннНААанНя елеЕеггРРааМм - @united brai nly (бБЗзЗ пПРРоОББеЕелЛООоВВВ)...
Наденька2000
13.12.2021 23:16
Нужны координаты буквы Д в исполнителе черепаха (буква нужно закрасить внутри)...
solomia113
13.12.2021 23:15
БоО ЗЗннААнниИия ТееелрРаА - @united brai nly (бббЗЗз ппрРбббЕеЕооов)...
секрет93
02.02.2021 19:00
Сформулируйте условие задачи ( укажите что дано, что нужны выполнить? Как называется список? Сколько элементов в списке? Укажите назначение функции reverse() import randomarr=[random.randint...
tanyatomeva81
21.12.2020 15:33
Какие человека относятся к ИНФОРМАЦИОННОЙ ГРАМОТНОСТИ...
nnnnn777
21.12.2020 15:32
Что такое цикл нужно по информатике...
madama1994
27.10.2020 09:13
Спишите, вставляя и подчеркивая пропущенные орфограммы и расставляя недостающие знаки препинания. Определите, что связывают сочинительные союзы: два предложения или однородные...
Популярные вопросы
30 . 1 найти значение выражении а) 4,8·(-3,2) – 11,4·(-0,7) б) (−+...
1
Художественный произведения,обличающие крепостное право?...
2
Найти ответ, районы землетрясений и вулканических извержений материка...
2
:у одного фермера 12 коров,а у другого 9. у первого ферма при одинаковой...
2
Вкакой массе 0,254 м раствора хлорида железа (iii) плотностью 1,032...
1
Нужен морфологический разбо слово : судно, к причалу( отдельно) вот...
1
Умоляю на проходящие выборы в органы государственной власти гражданин...
1
Уафриці було 660 слонів, а у зоопарку у 60 раз менше скільки слонів...
3
По грамматике и лексике прочитайте текст. преобразуйте слова, напечатанные...
2
Почему в сырую погоду труднее переносить холод?...
3
begin
readln(a);
s:=0;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln('s = ',s);
end.
Пример:
123456
s = 21