Вопрос по информатике:
1.Дано натуральное число.
а) найти произведение цифр числа.
б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры).
2.Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, при увеличении на 4 делятся на 5.
3.Из данного числа удалить все цифры А (А вводится с клавиатуры).
В Free Pascal.
- 04.01.2016 08:17
- Информатика
- remove_red_eye 13914
- thumb_up 27
Ответы и объяснения 1
Var
A,B:integer;
P:real;
C:boolean;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
P:=1;
C:=false;
B:=Abs(B);
While B>0 do
Begin
P:=P*(B mod 10);
if B mod 10 = A then C:=true;
B:=B div 10
End;
WriteLn('P = ',P);
if C then WriteLn('Не верно')
else WriteLn('Верно');
ReadLn
End.
uses Crt;
Var
A:integer;
Begin
ClrScr;
For A:= 100 to 999 do
if ((A+1) mod 2 = 0)and((A+2) mod 3 = 0)and((A+3) mod 4 = 0)and((A+4) mod 5 = 0) then Write(A,' ');
ReadLn;
End.
uses Crt;
Var
A,B,C:integer;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
C:=0;
While B0 do
Begin
if B mod 10 A then C:=C*10+B mod 10;
B:=B div 10;
End;
While C0 do
Begin
B:=B*10+C mod 10;
C:=C div 10
End;
WriteLn(B);
ReadLn;
End.
- 05.01.2016 08:38
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.