tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Все типы заданного четырехзначного
Все типы заданного четырехзначного числа n различны, написать на паскале и не с++
лиза2630
2 25.08.2019 12:20
1
Ответы
danilukm548p09te8
05.10.2020 18:44
Program summ;
Var a,b,c,d,n,
summa:integer;
Begin
writeln('Введите четырехзначное число ');
readln(n);
a:=n mod 10;
b:=n div 1000;
c:=(n mod 100) div 10;
d:=(n mod 1000)
div 100;
summa:=a+b+c+d;
writeln('Сумма равна ',summa);
Readln;
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
karpova79
07.12.2020 21:59
Дан фрагмент электронной таблицы. Определите значение, записанное вячейке С2.ВСA159=А1+B2=СТЕПЕНЫB1;2)+А2 =C1-(B2-15)2 =А12...
КилоЛеденцов
24.05.2019 17:50
Напишите программу , которая определяет , верно ли , что введенное число трехзначное....
tattazhutdinov
24.05.2019 17:50
Напишите программу , которая выбирает максимальное и минимальное из пяти введенных чисел. (...
OxanchikG
24.05.2019 17:50
Совокупность всех взаимосвязанных локальных сетей между собой называют...
Karina0714
09.09.2019 06:40
1. компьютер содержит следующие характеристики: оперативная память 4гб. тип оперативной памяти ddr3l. расширение оперативной памяти 2 слота. оптическое устройство dvd+r/rwecdrw...
ктознаетрусский
09.09.2019 06:40
Придумайте небольшой сюжет для рисованного мультика...
Bong144
09.09.2019 06:40
Какие трёхзначные числа можно составить из цифр 0 1 3...
НастяЛайк111
09.09.2019 06:40
Та. сообщение, записанное буквами из 32-х символьного алфавита, содержит 30 символов. какой объем информации оно несет?...
Superstylegir
16.05.2020 23:30
Як створити стовпчасту чи кругову діаграму в середовищі табличного процесора? До ть будь-ласка...
Abdulla2009
16.10.2020 08:05
Средние орефметическое трёх последовательных чётных натуральных чисел равно сумме чисел 23,6,44,7 и 11,7 найдите наименьшее число...
Популярные вопросы
Поиогите При переміщенні рівнобедрений трикутник АВС (∟А= 450 при...
3
Укажите предложение с частицей НЕ: Укажите правильный вариант ответа:...
3
Укажіть суму коефіцієнтів в рівнянні спиртового бродіння глюкози ...
3
Составить тест из 10 во по теме Русские поэты XX века о Родине, природе...
2
Зачароване коло,за широкою спиною це якісниі чи відносні прикметники...
2
Определите, какими частями речи яв- ляются выделенные слова. Напишите...
3
9 класс У Найти самый большой целый ответ...
1
Какова скорость потока нейтронов, образующих нейтронное излучение?...
3
Ни кино, ни телевидение не ослабили для нас притягательности такого...
2
Розгляньте й опишіть покриви тіла риби, їхне значення для водного...
2
Var a,b,c,d,n,
summa:integer;
Begin
writeln('Введите четырехзначное число ');
readln(n);
a:=n mod 10;
b:=n div 1000;
c:=(n mod 100) div 10;
d:=(n mod 1000)
div 100;
summa:=a+b+c+d;
writeln('Сумма равна ',summa);
Readln;
End.