Вопрос по информатике:
6.22) Дано натуральное число . Определить :
а)количество цифр 3 в нем ;
б)сумму его цифр, больших пяти;
в) произведение его цифр, больших семи ;
6.26 ) Дано натуральное число .
а) определить его максимальную цифру .
б)определить его минимальную цифру.
- 17.08.2018 07:51
- Информатика
- remove_red_eye 12423
- thumb_up 46
Ответы и объяснения 1
A,k,S,M:integer;
P:real;
Begin
Write('Введите натуральное число: ');ReadLn(A);
k:=0;
S:=0;
P:=1;
While A>0 do
Begin
M:=A mod 10;
if M = 3 then k:=k+1
else
Begin
if M > 5 then S:=S+M;
if M > 7 then P:=P*M;
End;
A:=A div 10;
End;
WriteLn('k = ',k);
WriteLn('S = ',S);
WriteLn('P = ',P);
End.
Var
A:integer;
Max,Min,M:byte;
Begin
Write('Введите натуральное число: ');ReadLn(A);
Max:=0;
Min:=10;
While A>0 do
Begin
M:=A mod 10;
if M
A:=A div 10;
End;
WriteLn('Min = ',Min);
WriteLn('Max = ',Max);
End.
- 18.08.2018 02:21
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.