Регистрация
qwerfdsa2904
26.05.2021 18:36
Информатика
Есть ответ 👍

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

170
399
Посмотреть ответы 2

Ответы на вопрос:

Эльнуи
Эльнуи
4,5(62 оценок)
Readln(x); x1: =x div 1000; x2: =(x-(x1*1000)) div 100; x4: =x mod 10; x3: =(x-x3-(x1**100) div 10; s: =x1+x2+x3+x4; writeln(s); readkey; end.
elenarum18
elenarum18
4,6(47 оценок)

Ничего таких горящий клавиш нету

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