очень Напишите программу на языке Паскаль для решения задачи:
1. Запросить от пользователя трехзначное натуральное число.
2. Разбить число на цифры.
3. Найти сумму и произведение цифр числа.
4. Вывести на экран ответ "Больше", если сумма больше произведения,
ответ "Меньше" , если сумма меньше произведения
и "Равно", если сумма равна произведению.
369Камила1
1
04.02.2021 16:04
6
Другие вопросы по теме Информатика
nik180208
15.12.2020 13:50
sofaloverrulitp0a6jz
15.12.2020 13:50
alona7773
15.12.2020 13:50
Duka2003
03.08.2019 21:50
рома1341
03.08.2019 21:50
Partners04
05.07.2019 04:10
KopolbEnufaHtuy
05.07.2019 04:10
batya757757
05.07.2019 04:10
додо7
05.07.2019 04:10
2зик20
05.07.2019 04:10
Популярные вопросы
- Нужно решить уравнениеуравнение x^3+x^2=a, если его корни образуют...
1 - Играя во время обеденного перерыва волейбол один из игроков (работник...
3 - Паяльник имеет сопротивление 440 ом и рассчитан на напряжение...
3 - 1.отношение европейских государств к османской империей2. общие...
2 - Определить ёмкость конденсатора если ему сообщили заряд 10^-8кл,...
2 - Міні твір я вождь племені „(10-12речень)! 20 на украинском!...
1 - Написать письмо васютке, когда он ещё находился в лесу. из рассказа...
1 - Треугольник авс, ав = ас=13 см, вс=10 см, медианы пересекаются...
3 - Сочинение на тему радость и горе иленьки грапа...
2 - Сочинение 150 слов по вопросу what are the people in the picture...
1
var a,c1,c2,c3,p,s:integer;
begin
p:=1;
read(a);
c1:=a mod 10;
a:= a div 10;
c2:=a mod 10;
a:= a div 10;
c2:=a mod 10;
p:=c1*c2*c3;
s:=c1+c2+c3;
if s>p then writeln('больше') else if s<p then writeln('меньше') else writeln('равно')
end.