Циклы. Условия
задач
Задача 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 и само число).
Примеры
|
Входные данные
|
Выходные данные
|
|
6
|
1 2 3 6
|
|
5
|
1 5
|
Задача I. Количество делителей
Подсчитайте количество натуральных делителей
числа x (включая 1 и само число; x <= 30000).
Примеры
|
Входные данные
|
Выходные данные
|
|
6
|
4
|
|
5
|
2
|
Задача 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),
которые работает генератор после включения.
Формат выходного файла
Результат работы генератора
Примеры
|
Ввод
|
Вывод
|
|
2
|
1 2
|
|
5
|
1 2 2 3 3
|
Задача 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.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.