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

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

Ответ:

тролодо

03.10.2020 11:53

Readln(x);
x1:=x div 1000;
x2:=(x-(x1*1000)) div 100;
x4:=x mod 10;
x3:=(x-x3-(x1*100)-(x2*100) div 10;
s:=x1+x2+x3+x4;
writeln(s);
readkey;
end.

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

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

yvtcrvt

24.02.2021 02:39

Товар стоит a руб. b коп. за него заплатили c руб. d коп. сколько сдачи требуется получить? вводятся 4 числа: a, b, c и d. необходимо вывести 2 числа: e и f, число рублей и копеек,...

nika032009003

20.03.2023 20:50

1.составить алгоритм и программу нахождения суммы следующих чисел: 1, 12, 35, 70, 117, ..532. 2.-х- 3.написать программу, которая вводит с клавиатуры число от 0 до 999999 (использовать...

fifi17

31.01.2022 17:08

Запишите на языке Python программу, реализующую алгоритм работы кассира, выдающего покупателю сдачу (s) наименьшим возможным количеством банкнот по 500 (k500), 100 (k100), 50...

123abcde6

20.02.2020 03:29

На стоянке 106 машин. из них 38 машин стоят вдоль одного забора, 26- вдоль другого забора, 3/8 от стоящих у заборов - в центре. а остальные машины стоят под навесами по 6 под...

danyXelper

20.02.2020 03:29

Какие аминокислоты называются незаменимыми и почему?...

Dangssa

20.02.2020 03:29

За 2 недели продали 3/20 овощей,за 7 недель 2/5 сколько овощей осталось? решить !...

780613

20.02.2020 03:29

Вкакой французской сказке есть имя карабас?...

lesta2

20.02.2020 03:29

Надо написать героев и их характеристику из книги: н. в. гоголь ночь перед рождеством . за ранее ,!...

Margarita200

12.06.2022 03:01

Доказать, что при любых значениях a и b значение выражения a-(3b + 2(0,5a - 1,5b + 4)) отрицательно....

Torquis

12.06.2022 03:01

Одинаков ли радиус ионов натрия и хлора? если нет то почему?...

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

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