Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Статьи / Статья на тему "Подготовка к олимпиадам по информатике:Циклы. Часть 2"
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 26 апреля.

Подать заявку на курс
  • Информатика

Статья на тему "Подготовка к олимпиадам по информатике:Циклы. Часть 2"

библиотека
материалов

Циклы. Условия задач


Задача A. Четные числа

Выведите (через пробел) все четные числа от a до b (включительно).


Примеры


1

4

2 4


2

6

2 4 6


2

5

2 4



Задача B. Остаток

Вводятся 4 числа: a, b, c и d.

Выведите все числа на отрезке от a до b, дающие остаток c при делении на d.


Примеры


1

4

1

2

1 3

1

5

0

4

4



Задача C. Квадраты

Выведите все числа на отрезке от a до b, являющиеся полными квадратами.


Примеры


1

5

1 4

2

9

4 9



Задача H. Делители числа

Выведите все натуральные делители числа x в порядке возрастания (включая 1 и само число).


Примеры


Задача I. Количество делителей

Подсчитайте количество натуральных делителей числа x (включая 1 и само число; x <= 30000).


Примеры


Задача J. Сумма ста

Вычислите сумму данных 100 натуральных чисел. Вводятся 100 чисел, сумму которых необходимо посчитать.


Задача K. Сумма чисел

Вычислите сумму данных N натуральных чисел. Вводится число N, а затем N чисел, сумму которых необходимо вычислить.


Примеры


3

1

2

1

4


2

5

2

7



Задача M. Нули

Вводится число N, а затем N чисел. Подсчитайте, сколько среди данных N чисел нулей.


Примеры


3

2

0

5

1


4

2

0

5

0

2



Задача N. Подсчет чисел

Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел. Вводится число N, а затем N чисел. Необходимо вывести сначала число нулей, затем число положительных и отрицательных чисел.


Примеры


3

2

0

5

1 2 0


4

2

0

5

-3

1 2 1



Задача O. Ноль или не ноль

Проверьте, есть ли среди данных N чисел нули. Вводится число N, а затем N чисел. Выведите YES, если среди введенных чисел есть хотя бы один нуль, или NO в противном случае.


Примеры


3

2

0

5

YES

4

1

2

3

4

NO


Задача P. Уравнение по возрастанию

Вводятся 4 числа: a, b, c и d.

Найдите все целые решения уравнения ax3 + bx2 + cx + d = 0 на отрезке [0,1000] и выведите их в порядке возрастания.


Примеры


-1

1

-1

1

1

1

1

1

1


Задача Q. Уравнение по убыванию

Вводятся 4 числа: a, b, c и d.

Найдите все целые решения уравнения ax3 + bx2 + cx + d = 0 на отрезке [0,1000] и выведите их в порядке убывания.


Примеры


1

-2

1

0

1 0

1

1

1

1



Задача R. Количество решений

Вводятся 5 чисел: a, b, c, d и e.

Найдите все целые решения уравнения ( ax3 + bx2 + cx + d ) / ( x - e ) = 0 на отрезке [0,1000] и выведите их количество.


Примеры


1

-2

1

0

1

1

1

1

1

1

1

0


Задача S. ГНЧЭ-1

"ГНЧЭ-1" – сложное электронное устройство, выдающее каждую секунду очередное число последовательности 1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5... Ввиду дороговизны электронных комплектующих вам поручено разработать эмулятор для этого устройства.

Формат входного файла

Дано количество секунд (от 1 до 1000000), которые работает генератор после включения.

Формат выходного файла

Результат работы генератора


Примеры



Задача A. Четные числа

var a,b,i:longint;

begin

read(a,b);

for i:=a to b do

if i mod 2=0 then write(i,' ');

end.


Задача B. Остаток

var a,b,c,d,i:longint;

begin

read(a,b,c,d);

for i:=a to b do

if i mod d=c then write(i,' ');

end.


Задача C. Квадраты

var a,b,i:longint;

begin

read(a,b);

for i:=a to b do

if sqrt(i)=int(sqrt(i)) then write(i,' ');

end.


Задача H. Делители числа

var x,i:longint;

begin

read(x);

for i:=1 to x do

if x mod i=0 then write(i,' ');

end.


Задача I. Количество делителей

var x,i,k:longint;

begin

read(x);

for i:=1 to x do

if x mod i=0 then k:=k+1;

write(k);

end.


Задача J. Сумма ста

var i,a,s:longint;

begin

for i:=1 to 100 do

begin

read(a);

s:=s+a;

end;

write(s);

end.


Задача K. Сумма чисел

var i,a,s,n:longint;

begin

read(n);

for i:=1 to n do

begin

read(a);

s:=s+a;

end;

write(s);

end.


Задача M. Нули

var i,a,k,n:longint;

begin

read(n);

for i:=1 to n do

begin

read(a);

if a=0 then k:=k+1;

end;

write(k);

end.


Задача N. Подсчет чисел

var i,a,kn,kp,ko,n:longint;

begin

read(n);

for i:=1 to n do

begin

read(a);

if a=0 then kn:=kn+1

else if a>0 then kp:=kp+1

else ko:=ko+1;

end;

write(kn,' ',kp,' ',ko);

end.


Задача O. Ноль или не ноль

var i,a,k,n:longint;

b:boolean;

begin

read(n);

b:=false;

for i:=1 to n do

begin

read(a);

if a=0 then b:=true;

end;

if b then write('YES')

else write('NO');

end.


Задача P. Уравнение по возрастанию

var a,b,c,d,x:longint;

begin

read(a,b,c,d);

for x:=0 to 1000 do

if a*x*x*x+b*sqr(x)+c*x+d=0 then

write(x,' ');

end.


Задача Q. Уравнение по убыванию

var a,b,c,d,x:longint;

begin

read(a,b,c,d);

for x:=1000 downto 0 do

if a*x*x*x+b*sqr(x)+c*x+d=0 then

write(x,' ');

end.


Задача R. Количество решений

var a,b,c,d,x,e,k:longint;

begin

read(a,b,c,d,e);

for x:=0 to 1000 do

if (a*x*x*x+b*sqr(x)+c*x+d=0) and (x<>e) then

k:=k+1;

write(k);

end.


Задача S. ГНЧЭ-1

var n,i,l,k:longint;

begin

read(n);

i:=1;

l:=0;

for k:=1 to n do

begin

l:=l+1;

write(i,' ');

if i=l then begin i:=i+1; l:=0; end;

end;

end.



Автор
Дата добавления 31.05.2016
Раздел Информатика
Подраздел Статьи
Просмотров339
Номер материала ДБ-104734
Получить свидетельство о публикации

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ


Идёт приём заявок на международный конкурс по математике "Весенний марафон" для учеников 1-11 классов и дошкольников

Уникальность конкурса в преимуществах для учителей и учеников:

1. Задания подходят для учеников с любым уровнем знаний;
2. Бесплатные наградные документы для учителей;
3. Невероятно низкий орг.взнос - всего 38 рублей;
4. Публикация рейтинга классов по итогам конкурса;
и многое другое...

Подайте заявку сейчас - https://urokimatematiki.ru

Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх