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

Найти сумму цифр четырехзначного числа через цикл с постусловием

Показать ответ

Ответ:

lenahalezina

21.07.2020 12:29

Var a,s:integer;
begin
readln (a);
repeat
s:=s+a mod 10;
a:=a div 10;
until a=0;
writeln (s);
end.

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

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

егор23578584

29.07.2020 13:02

составить алгоритм который при вводе числа больше 0 будет выдовать число больше положительного а если меньше 0 то отрицательное если можно то сделать в Basik...

nastasyakiribe

27.11.2020 01:41

Построить таблицу значений для функции f (x) = cos(x) на отрезке [ pi/3,2 pi/3] с числом разбиений отрезка m=20. Нужно сделать на языке c#...

notix55

23.02.2020 04:43

Как записывается десятичное число 317 в 16 ричной системе счисления...

Свєтлана1

18.11.2022 02:11

Среда программирования python. какое число будет выведено на экран в результате выполнения этого цикла? i=3 print( 9 ,end= ) while i 6: print(i,end= ) i+=1 a)( )9 3...

toklike

05.08.2020 12:56

Маша, лена, оля и валя - замечательные девочки. каждая из них играет на каком-нибудь музыкальном инструменте и говорит на одном из иностранных языков, инструменты и...

nastakosmos12

05.08.2020 12:56

Программа на паскале, которая считает сумму трёх последних цифр в числе....

djuraev488

10.05.2020 22:59

:используя учебник михеева е.в. информатика ответить на вопросы в конспекте лекций. 1.какие текстовые редакторы вы знаете? 2. перечислите режимы представления документов...

AMAYA000

10.05.2020 22:59

Восстановите ip-адрес в правильном порядке указав буквы: а 2.17 б 16 в .65 г 8.121...

vul654

10.05.2020 22:59

Производилась четырёхканальная ( квадро) звукозапись с частотой дискретизации 32кгц и 24-битным разрешением. в результате был получен файл размером 20 мбайт, сжатие...

89528849556keyz

18.04.2022 09:48

Через pascal abc по быстрее .если есть вопросы задавайте...

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

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