Лучшие помощники
- Megamozg 2170 б
- Matalya1 1800 б
- DevAdmin 1680 б
- arkasha_bortnikov 740 б
- kirill_shatsov 705 б
14 января 2023 23:57
868
Дано четырехзначное число. Найти: сумму его цифр.
Написать программу на Pascal'е
1
ответ
var n,s:integer;
x1,x2,x3,x4:integer;
begin
write('Vvedite N = ');
read(n);
x1:=n div 1000;
x2:=n mod 1000 div 100;
x3:=n mod 100 div 10;
x4:=n mod 10 div 1;
s:=x1+x2+x3+x4;
writeln(s);
end.
x1,x2,x3,x4:integer;
begin
write('Vvedite N = ');
read(n);
x1:=n div 1000;
x2:=n mod 1000 div 100;
x3:=n mod 100 div 10;
x4:=n mod 10 div 1;
s:=x1+x2+x3+x4;
writeln(s);
end.
0
·
Хороший ответ
16 января 2023 23:57
Остались вопросы?
Еще вопросы по категории Информатика
Сообщение о том,что ваш друг живет на 10 этаже,несёт 4 бита информации.Сколько этажей в доме?...
Как удалить блокировку компьютера? Оплатить, блокировка сразу удалится Найти сайт с кодами разблокировки Поставить специальную утилиту удаление блокир...
Опишите основные возможности растровых графических редакторов...
Помогите, пожалуйста, очень нужно! Срочно!:( 1) Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычис...
Укажите через запятую в порядке возрастания все десятичные числа, не превосходящие 30, запись которых в системе счисления с основанием 5 начинается на...
Все предметы