Вычислить значение функции F(x)=-x2+x-9 при x>=8 1/x4-6 при x<8
Ответы
Var N,B,k:integer;
Begin
Write('N = ');ReadLn(N);
Write('Искомые числа:');
For N:= 1 to N do
Begin
B:=N;
k:=1;
// перед каждой проверкой k:=1
// и если число не делится на любую из своих цифр, то k:=0
While B > 0 do
Begin
if B mod 10 = 0 then k:=0
// B mod 10 - это остаток от деления B на 10
// то есть, например, 123 mod 10 = 3
else if N mod (B mod 10) > 0 then k:=0;
B:=B div 10
// целая часть от деления B на 10
// 123 div 10 = 12
End;
if k = 1 then Write(' ',N)
End;
End.
Begin
Write('N = ');ReadLn(N);
Write('Искомые числа:');
For N:= 1 to N do
Begin
B:=N;
k:=1;
// перед каждой проверкой k:=1
// и если число не делится на любую из своих цифр, то k:=0
While B > 0 do
Begin
if B mod 10 = 0 then k:=0
// B mod 10 - это остаток от деления B на 10
// то есть, например, 123 mod 10 = 3
else if N mod (B mod 10) > 0 then k:=0;
B:=B div 10
// целая часть от деления B на 10
// 123 div 10 = 12
End;
if k = 1 then Write(' ',N)
End;
End.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Вывести на экран все двузначные числа перевертыши. через паскаль
Автор: ksen1280
: по схеме составить формулу функции f, таблицу истинности, скнф, сднф.
Автор: asnika1989
Перевести из 16ч-й системы в 10ч-ю 2 числа: ad9 и bf18
Автор: elmiro4ka868617
3 во всего, тестовая форма кто шарит!
Автор: Юрьевич293
Вкаком поколении машин ввод данных можно осуществлять с речи?
Автор: maximpr6
1. (h1-h4 пиши в столбик, впиши по очереди сверху вниз а то не позволяют правила сюда вписывать)
<body>
<b> <h1>текст на картинке</h1> <h2>текст на картинке</h2>
<h3>текст на картинке</h3> <h4>текст на картинке</h4> </b>
<style>
h1, h2, h3, h4 {
text-align: center;
}
</style>
</body>
2. (<li> - в столбик как в первом)
<body>
<ul>
<li>текст на картинке</li> <li>текст на картинке</li> <li>текст на картинке</li> <li>текст на картинке</li>
</ul>
извини если уже написал
</body>
3. (i) На картинке (фамилия и имя обведи несколько раз.)
(ii) Просто перепиши код и вместо Петров в начале впиши Петр, и вместо Ивана впиши Петров.
4. <style>
.z1 {
text-align: center;
font-size: 36px;
color: red;
}
.z2 {
text-align: center;
font-size: 24px;
color: green;
}
</style>
5. Для этого существует тег <video> и атрибут src.
пример - <video src="ссылка на видео"></video>
6. Выведется картинка с названием "angel_326.jpg"
Во втором появится аудиозапись с названием "angel.mp3" с автозапуском и возможностью перематывать и ставить на паузу аудио.