Ввести целое число и найти сумму его цифр(1234)Паскаль
5-9 класс
|
var a,s,n:integer;
begin
read(n);
while not(n=0) do
begin
a:=n mod 10;
s:=a+s;
n:=n div 10;
end;
writeln(s);
end.
Фигня. Сейчас накатаем!
Другие вопросы из категории
домашнее задание, а те у кого нет, попросите у тех, кто сфоткал." И все! Больше ничего. Одноклассница, которая мне в этом постоянно помогала, не отвечает :(
Помогите пожалуйста!
(Паскаль)
обработкой вручную
Стремясь усилить воздействие на все органы чувств человека во время просмотра кинофильмов,люди придумали 3D 2D .....и даже 7D кинотеатры.Какая информация не воспринимается человеком при данны просмотрах
1)тактильная
2)обонятельная
3)вкусовая
4)слуховая
1)Нейрофизиология
2)Генетика
3)Геодинамика
4)Теория систем
Читайте также
Пример:
Введите целое число:
1234
Сумма цифр числа 1234 равна 10.
Пример:
Введите целое число:
1 2 3 4
Сумма цифр числа 1 2 3 4 равна 10
Пример:
Введите целое число:
1 2 3 4
Сумма цифр числа 1 2 3 4 равна 10
В pascal . Составьте пожалуйста полную программу со всеми обозначениями .
(с защитой от неверного ввода) или Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10 (с защитой от неверного ввода).