сервис вопросов и ответовПомогите написать программу)))
10-11 класс|
|
Задано трехзначное число, определить:
1) сумму цифр этого числа;
2) произведение;
3) минимальную цифру;
4) максимальную цифру этого числа.
Gaga123987
06 марта 2015 г., 1:42:53 (9 лет назад)
очен
06 марта 2015 г., 2:32:21 (9 лет назад)
uses crt;
var a,b,c,x,max,min,sum,pr: integer;
begin
write('Введите число: ');
readln(x);
a:= x div 100;
b:= x div 10 mod 10;
c:= x mod 10;
sum:=a+b+c;
pr:=a*b*c;
if a>b then begin
min:=b;
max:=a;
end
else begin
max:=b;
min:=a;
end;
if min>c then min:=c;
if max<c then max:=c;
writeln('Сумма цифр числа: ',sum);
writeln('Произведение цифр числа: ',pr);
writeln('Максимальная цифра: ',max);
writeln('Минимальная цифра: ',min);
end.
Ответить
Другие вопросы из категории
На вход подается строка имеющая вид: ФАМИЛИЯ ИМЯ БАЛЛ1 БАЛЛ 2 ФАМИЛИЯ ИМЯ... Где балл1 и балл2 - баллы предметов. Надо написать программу, показывающую
имена и фамилии ненабравших мин. балла - 30.
Для групповых операций с файлами используются маски имён
файлов. Маска представляет собой последовательность букв, цифр и
прочих допустимых в именах файлов символов, в которых также
могут встречаться следующие символы:
Символ «?» (вопросительный знак) означает ровно один произвольный символ.
Символ «*» (звёздочка) означает любую
последовательность символов произвольной длины, в том числе
«*» может задавать и пустую последовательность.
Определите, какое из указанных имён файлов удовлетворяет маске:
?mur*r.?st
1) mur.lst
2) omurr.sst
3) omur.sts
4) mur.lst
последовательность: 4, 1, 9, 3, 7, 5, из всех чисел которые больше 4 вычесть 3 затем удалить из всей последоательности нечетные числа
Пожалуйста с решением
Читайте также
Помогите написать программу в паскале. Задание:На плоскости даны 2 точки А (х1; у2) и В (х2; у2), определить какая из них находится дальше от начала коо
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
Помогите написать программу по Информатике! Найти произведение двузначных нечетных чисел, кратных
13.
Нужно написать программу на цикле с предусловием, на Паскале.
Помогите написать программу на C#
Дано натуральное число n. Написать программу вычисляющую сумму
написать программу на Assembler
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
1) Написать программу для вычисления суммы цифр пятизначного числа , введенного с клавиатура
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
Вы находитесь на странице вопроса "Помогите написать программу)))", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.