Дано 6-ти значное число Отыскать сумму его цифр (С помощбя паскаля)(Информатика
Дано 6-ти значное число
Отыскать сумму его цифр
(С помощбя паскаля)
(Информатика 9 класс )
1 ответ
Белынская
Инна
Можно так:
Var
A,i,S:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
S:=0;
For i:= 1 to 6 do
Begin
S:=S + (A mod 10);
A:=A div 10;
End;
WriteLn('S = ',S)
End.
И так:
Var
A,S:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
S:=0;
S:=A mod 10;
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
WriteLn('S = ',S)
End.
Или так
Var
A:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
WriteLn('S = ',(A div 100000)+((A div 10000)mod 10)+((A div 1000)mod 10)+((A div 100)mod 10)+((A div 10)mod 10)+(A mod 10))
End.
Var
A,i,S:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
S:=0;
For i:= 1 to 6 do
Begin
S:=S + (A mod 10);
A:=A div 10;
End;
WriteLn('S = ',S)
End.
И так:
Var
A,S:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
S:=0;
S:=A mod 10;
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
WriteLn('S = ',S)
End.
Или так
Var
A:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
WriteLn('S = ',(A div 100000)+((A div 10000)mod 10)+((A div 1000)mod 10)+((A div 100)mod 10)+((A div 10)mod 10)+(A mod 10))
End.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов