1)Дано четырехзначное число. Найти: а) сумму его цифр; б) творенье его

1 задание:

Поначалу мы вводим в программку четырезначное число.

Затем идет охрана от дурачины, то есть, чтоб человек ваел конкретно четырехзначное число. Реализовано это при поддержки команды repeat. Почему конкретно через нее? Чтобы если мы ввели нечетырехзначное, то программа незакрывалась, а попросила бы нас ввести число заного.

Далее при подмоги команд вывода уже выводятся сумма и творение цифр числа. Реализовано это все сразу в их, без поддержки дополнительных переменных, что немного уменьшает объем программы. Воплотил определение цифр числа при подмоги команд div и mod.

program school3;

Var chislo:Integer;

begin

Repeat

Write('Введите четырехзначное числоgt;gt; ');

Readln(chislo);

Until (chislolt;=9999) and (chislo gt;=1000);

WriteLn('Сумма цифр числа = ', (chislo mod 10)+(chislo div 10 mod 10)+(chislo div 100 mod 10)+(chislo div 1000));

Write('Произведение цифр чи сла = ', (chislo mod 10)*(chislo div 10 mod 10)*(chislo div 100 mod 10)*(chislo div 1000));

end.

2 задание:

Произведем оборотные действия:

Число должно оканчиваться на 0,т.к вначале оно было домножено на 10, от сюда следует, что было число 560 и к нему добавили 4. Означает, 4 эта 1-ая цифра числа. Сейчас поделим 560 на 10 и получим 56. Означает, из числа 56 зачеркнули первую цифру и это была цифра 4,преписана с конца при умножение на 10.

Сейчас знаем вначале заданное число: 456.

Произведем проверку:

Зачеркнём у числа 456 первую цифру. Получим 56. Домножим 56 на 10 и получим 560. К 560 прибавим первую цифру заданного числа и получим 564. ЧТД.

Если это надобно было решить в паскале(2 задание) , то надо было уточнять.