Задача: нужно составить на паскале такую программу,что бы писать туда четырёх значное число,чтобы это число раскладывалось по цифрам,находилось
5-9 класс
|
произведение и сумма этих цифр, и находилась большая цифра
uses crt;
var a,max,sum,pr,a1,a2,a3,a4:integer;
begin
write('Введите число: '); readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
sum:=a1+a2+a3+a4;
pr:=a1*a2*a3*a4;
if a1>=a2 then max:=a1 else max:=a2;
if max<=a3 then max:=a3;
if max<=a4 then max:=a4;
writeln('Сумма цифр числа: ',sum);
writeln('Произведение цифр числа: ',pr);
writeln('Максимальная цифра в числе: ',max);
end.
Другие вопросы из категории
Читайте также
амеба каждые 3 часа делиться на 2 клетки. Определить, сколько амеб будет через 3,6,9,12 и 24 часа.
3) дано натуральное числоо N и действительное число Х. Вычислить сумму ряда sin(x)+sin(2x)+sin(3x)+...+sin(Nx).
4) написать программу для вычисления n-ой степени числа А.
помогите, пожалуйста)
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
получает на вход нат числа, признаком окончания ввода явл число 0.
Могу решить и сам, только нельзя на компе проверить. Так что надеюсь на вас.
ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!