Девятиклассники участвовали в викторине по математике. Необходимо было ответить на 20 вопросов.Победителем викторины считается участник, правильно ответивший на наибольшее количество вопросов. На сколько вопросов победитель ответил правильно? Если есть участники викторины, которые не смогли дать правильный ответ ни на один из вопросов, выведите YES, если нет-NO. Гарантируется, что есть участники, правильно ответившие хотя бы на один из вопросов. Программа получает на вход число участников викторины N(1<=N<=50),затем для каждого участника вводится количество вопросов, на которых получен правильный ответ. Пример работы программы: 4
15
12
0
17
ответ:17 YES
На ПИТОНЕ! ПРОГРАММА!
var k,i,n:integer;
begin
write('k = '); readln(k);
n:=0;
for i:=2 to round(sqrt(k)) do
if k mod i= 0 then n:=n+1;
if n=0 then writeln(k,' - простое число')
else writeln(k,' - составное число');
end.
Пример:
k = 23
23 - простое число
2)
var a,b,i:integer;
function prost(n:integer):boolean;
var j,m:integer;
begin
m:=0;
for j:=2 to trunc(sqrt(n)) do
if n mod j = 0 then inc(m);
prost:=m=0;
end;
begin
readln(a,b);
writeln('Простые числа:');
for i:=a to b do
if prost(i) then write(i,' ');
end.
Пример:
10 30
Простые числа:
11 13 17 19 23 29
3)
var k,i,n:integer;
function prost(n:integer):boolean;
var j,m:integer;
begin
m:=0;
for j:=2 to trunc(sqrt(n)) do
if n mod j = 0 then inc(m);
prost:=m=0;
end;
begin
readln(k);
i:=2; n:=0;
writeln('Простые числа:');
while n<k do
begin
if prost(i) then begin write(i,' '); n:=n+1; end;
i:=i+1;
end;
end.
Пример:
10
Простые числа:
2 3 5 7 11 13 17 19 23 29
How can you see into my eyes like open doors?
Leadin' you down into my core
Where I've become so numb, without a soul
My spirit's sleeping somewhere cold
Until you find it there, and lead it back home
[Hook: Amy Lee & Paul McCoy]
Wake me up!
Wake me up inside!
I can't wake up
Wake me up inside!
Save me!
Call my name and save me from the dark
Wake me up!
Bid my blood to run
I can't wake up
Before I come undone
Save me!
Save me from the nothing I've become
[Verse 2: Amy Lee]
Now that I know what I'm without
You can't just leave me
Breathe into me and make me real
Bring me to life
[Hook: Amy Lee & Paul McCoy]
Wake me up!
Wake me up inside!
I can't wake up
Wake me up inside!
Save me!
Call my name and save me from the dark
Wake me up!
Bid my blood to run
I can't wake up
Before I come undone
Save me!
Save me from the nothing I've become
[Bridge: Amy Lee & Paul McCoy]
Bring me to life
I've been livin' a lie, there's nothing inside
Bring me to life
[Interlude: Amy Lee]
Frozen inside, without your touch
Without your love, darling
Only you are the life
Among the dead
[Verse 3: Paul McCoy & Amy Lee]
All this time, I can't believe I couldn't see
Kept in the dark, but you were there in front of me
I've been sleeping a thousand years it seems
Got to open my eyes to everything
Without a thought, without a voice, without a soul
Don't let me die here
There must be something more
Bring, me, to, life
[Hook: Amy Lee & Paul McCoy]
Wake me up!
Wake me up inside!
I can't wake up
Wake me up inside!
Save me!
Call my name and save me from the dark
Wake me up!
Bid my blood to run
I can't wake up
Before I come undone
Save me!
Save me from the nothing I've become
[Outro: Amy Lee & Paul McCoy]
Bring me to life
I've been living a lie, there's nothing inside
Bring me to life