tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вследующем фрагменте k и
Вследующем фрагменте k и s -переменные целого типа: readln(k); s: =0; while k> 0 do begin s: =s+k mod 10; k: = k div 10; end; writeln(s); какая решается ? запрограммируйте решение этой же с использованием цикла с постусловием.
динка84
3 07.07.2019 14:00
0
Ответы
sab005
30.07.2020 20:11
Идет вычисление суммы цифр числа.
begin
readln(k);
s:=0;
repeat
s:= s + k mod 10;
k:= k div 10;
until (k<=0);
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
12345TEREX
24.09.2019 16:10
Нужно создать программу с++ которая проверяет введенное число действительно является числом или же это символ (ну или крч проверка это символ или число)...
lera1060
24.09.2019 16:01
Чтобы программа выполнялась со скорости не больше, скажем, 40 fps, нужно использовать функцию … (укажите полное название: например, pygame.blabla.bla)...
ПолинаSweet11
24.09.2019 16:01
Дано четырёхзначное число определить кратно ли четырём произведение его цифр...
galaxykill
22.02.2021 16:55
2. Выбери код программы на языке Python, который задает массив с ПЯТЬю элементами и выводит егона экранA=(2220, 24.12.31)A=[27,20,24,17,31)(A)printВариант 1OВариант...
fagsfssfs
12.07.2019 02:30
Решить систему счисления : 101110₂+246₈+1ab₁₆=x₁₀ двоичная система счисления : 1010₂+x₁₀=1111₂ !...
Ctypakelizaveta
22.05.2019 02:30
Всистеме счисления с некоторым основанием десятичное число 20 записывается в виде 40 .укажите это основание...
kckekdkalexter
22.05.2019 02:30
Решить информационный объём дискеты 1,44 мбайта. достаточно ли одной дискеты,чтобы записать на неё 5 файлов,информационный объём каждого из которых примерно равен...
wonderr
02.07.2019 23:10
Даны три положительных числа a,b и с. проверить, могут ли они являться длинами сторон треугольника. составить программу, которая будет в процедуре определять существует...
katarinka377
13.09.2019 17:22
Доклад роль информационной деятельности в современном обществе в его образовательной сфере...
bitvazat
13.09.2019 17:18
243 в шестяричной системе исчесления перевести в десятичную...
Популярные вопросы
Вычислите массовую долю азота элементов в нитрате натрия - nano3...
1
Найдите интервал возрастания функции y=1/2x²-4x+1...
2
Первый сплав содержит 5 меди второй 11 меди масса второго сплава...
1
Вклассе 21 учащихся, среди них два друга- олег и андрей. класс...
1
Log 240 по 2 - log 3.75 по 2. найти значение выражения...
1
Чему равна производная 2е в степени х...
2
Свойства оксидов,кислот,оснований.реакции ионного обмена...
2
Найдите корень уравнения log3 (6 + 5х) = log3 (3 + 5х) +1....
1
Срешением с1: 12^sinx = 3^sinx * 4^cosx...
3
Решить ур-я 7в стпени х-2= корень кубический из 49 log3(x+6)=-2...
1
begin
readln(k);
s:=0;
repeat
s:= s + k mod 10;
k:= k div 10;
until (k<=0);
writeln(s);
end.