Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
14 января 2023 23:57
1065
Дано четырехзначное число. Найти: сумму его цифр.
Написать программу на 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
Остались вопросы?
Еще вопросы по категории Информатика
1.7. Задание с выборочным ответом. В процессе загрузки операционной системы происходит: 1) копирование файлов операционной системы с гибкого диска на...
Отгадайте слово , обозначающее некое понятие информатики . 1)Секретная , научная , ложная , техническая , массовая . 2)Текстовый , графический , сист...
Дети в детском лагере собирали грибы. Сегодня им попадались только лисички и маслята. Каждый нашел хотя бы один гриб, у 23 детей в корзинках были лиси...
Составьте программу сортировки по возрастанию значений трех переменных: А, В, С. Продемонстрируйте данный алгоритм в виде БЛОК-СХЕМЫ....
Усложните уровень в новой игре. Добавьте на поле 19 препядствий так, чтобы путь заврио до сокровищ был не менее 39 клеток...
Все предметы 
