Вопрос по информатике:
Найти сумму цифр четырехзначного числа
Program nfff;
var ab,S,a,b: integer;
Begin
WriteLn('найти сумму цифр четырехзначного числа');
Write('Введите ab= ');ReadLn(ab);
b:=ab mod 10;
a:=ab div 10;
S:=a+b;
writeln('S=',S);
End.
- 25.01.2018 06:25
- Информатика
- remove_red_eye 5304
- thumb_up 46
Ответы и объяснения 1
Program nfff;
var abcd,S,a,b,c,d: integer;
Begin
WriteLn('найти сумму цифр четырехзначного числа');
Write('Введите abcd= ');ReadLn(abcd);
a:=abcd div 1000;
b:=abcd div 100;
b:=b mod 10;
c:=abcd mod 100;
c:=c div 10;
d:=abcd mod 10;
S:=a+b+c+d;
writeln('S=',S);
End.
- 26.01.2018 23:55
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.