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

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

Ответ:

alinatitova228

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 оценок)

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

dimailiysovдима

11.06.2021 12:50

Найдите ошибку в программе сложение двух чисел ОЧЕНЬ сдавать сегодня надо...

shkolnik22817

09.05.2020 01:07

На координатной плоскости отметьте и пронумеруйте точки со следующими координатами: a(2,5),b(6,5),c(11,7,)d(11,4),e(6,2),f(2,2),g(4,8),h(9,9),i(3,2),j(3,4),k(5,4),l(5,2).соедините...

neondragooffi

09.05.2020 01:07

Program test; var a, b , c: integer; begin readln (a, b); c: =(a+b) * (b-a); writeln (c) end. .объясните как вы делали...

lfhnvjk2007

27.06.2022 10:16

1) что вычисляет фрагмент программы? s: =0; for i: =1 to 16 do if f[i] mod 3 0 then s: =+m[i]; 2) что вычисляет фрагмент программы? k: =0; for i: =1 to 40 do if i mod 2=0 then...

led98918

27.06.2022 10:16

Переведите число 10101001 из двоичной системы счисления в десятичную систему счисления. в ответе напишите полученное число....

хамзикош

07.12.2022 10:48

Делать через freepascal или pascal abc! а + b даны целые числа a и b. необходимо найти сумму этих чисел. формат входных данных во входном файле в единственной строке записаны a...

vitcke1

07.12.2022 10:48

Напишите код хорошего калькулятора на python...

калинка2006

31.01.2022 23:40

Загадка с ответом флешка по информатике . не в стихотворной форме...

w11Maxim11w

31.01.2022 23:40

Впрограмме «: =» обозначает оператор присваивания, знаки «+», «-», «*» и «/» — соответственно операции сложения, вычитания, умножения и деления. правила выполнения операций и порядок...

leksutin1

31.01.2022 23:40

Мальчики играли в шпионов и закодировали сообщение придуманным шифром. в сообщении присутствуют только буквы из фрагмента кодовой таблицы: а б в г д е ж 10 101 12 102 122 22 120...

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

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