Задачи на циклы

olia08

Дата: Воскресенье, 09.11.2008, 19:36 | Сообщение # 1

Новичок

Группа: Пользователи

Сообщений: 2

Репутация: 0

Замечания: 20%

Статус: Offline

задача_3_3
Дано N цілих чисел. Всі непарні числа піднімати до квадрату та виводити в одному рядку через пропуск.

ТУ. У першому рядку стандартного вхідного потоку міститься N (N<1000) – кількість чисел. У наступному рядку через пропуск дано самі числа. У стандартний вихідний потік вивести квадрати непарних чисел.

Вхідні дані
5
12 4 2 7 9

Вихідні дані
49 81

задача_3_4
Дано N цілих чисел. Знайти суму чисел кратних 5.

Вхідні дані
5
15 4 2 10 9

Вихідні дані
25

задача_3_5
Дано N цілих чисел. Знайти кількість чисел, що закінчуються двійкою.

ТУ. У першому рядку стандартного вхідного потоку міститься N (N<1000) – кількість чисел. У наступному рядку через пропуск дано самі числа. У стандартний вихідний потік кількість чисел.

Вхідні дані
5
15 4 2 10 92

Вихідні дані
2

задача_3_6
Знайти всі числа менші N , які є квадратами натуральних чисел.

ТУ. У стандартному вхідному потоці дано ціле додатне N (N<=1000000). У стандартний вихідний потік вивести у порядку зростання відібрані числа.

Вхідні дані
30

Вихідні дані
1 4 9 16 25

задача_3_7
Знайти дільники числа N.

ТУ. У стандартному вхідному потоці дано ціле додатне N (N<=1000000). У стандартний вихідний потік вивести через пропуск його дільники.

Вхідні дані
10

Вихідні дані
1 2 5 10

задача_3_8
Знайти прості дільники числа N.

ТУ. У стандартному вхідному потоці дано ціле додатне N (N<=109 ). У стандартний вихідний потік вивести через пропуск його прості дільники. Якщо число N ділиться на деяке просте число більше одного разу, то виводити цей дільник також більше одного разу.

Вхідні дані
20

Вихідні дані
2 2 5

snaper1993

Дата: Воскресенье, 09.11.2008, 19:38 | Сообщение # 2

Бывалый

Группа: Пользователи

Сообщений: 121

Репутация: 2

Замечания: 0%

Статус: Offline

Seqular, не зкривай тему я знаю украинский я зделаю ети задачки!

Я - желанный гость Сайта взаимопомощи программистам Pascal А ты?

Seqular

Дата: Воскресенье, 09.11.2008, 19:40 | Сообщение # 3

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Тему не закрою, но предупреждение вынесу за то, что много задач в одной теме. smile

Поддерживаю также проект сообщество молодых сисадминов

snaper1993

Дата: Воскресенье, 09.11.2008, 20:01 | Сообщение # 4

Бывалый

Группа: Пользователи

Сообщений: 121

Репутация: 2

Замечания: 0%

Статус: Offline

вот 3:

Code

var n,i,k,a:longint;
begin
read(n);
k:=0;
for i:=1 to n do
begin
read(a);

if (a mod 2)<>0 then
begin
k:=sqr(a);
write(k,' ');
end;
end;
end.

Вот 4 :

Code

var n,i,a,k:longint;
begin
read(n);
k:=0;
for i:=1 to n do
begin
read(a);
if (a mod 5)=0 then k:=k+a;
end;
writeln(k);
end.

вот 5:

Code

var n,i,a,k:longint;
begin
read(n);
k:=0;
for i:=1 to n do
begin
read(a);
if (a mod 10)=2 then k:=k+1;
end;
writeln(k);
end.

Вот 6:

Code

var n,i,k:longint;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
if sqr(i)<=n then
begin
k:=sqr(i);
write(k,' ');
end;
end;
end.

вот 7:

Code

var n,i,k:longint;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
if (n mod i)=0 then
begin
k:=i;
write(k,' ');
end;
end;
end.

вот 8:

Code

var a,i:longint;
begin
readln(a);
i:=2;
while a<>1 do
begin
if (a mod i)=0 then
begin
a:=(a div i); write(i,' ');
end
else i:=i+1;
end;
end.

Хух мозги немножно розомнял!
olia08, слудующий раз пиши хотябы по 3-4 задачки в теме!

Я - желанный гость Сайта взаимопомощи программистам Pascal А ты?

Seqular

Дата: Воскресенье, 09.11.2008, 20:12 | Сообщение # 5

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

snaper1993, нифига подобного! Тока по 1 в теме =))))

Поддерживаю также проект сообщество молодых сисадминов

Seqular

Дата: Воскресенье, 09.11.2008, 20:14 | Сообщение # 6

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Кста, буду признателен, если эти задачки будут переведены на русский язык и сброшены здесь же.

Поддерживаю также проект сообщество молодых сисадминов

olia08

Дата: Воскресенье, 09.11.2008, 23:18 | Сообщение # 7

Новичок

Группа: Пользователи

Сообщений: 2

Репутация: 0

Замечания: 20%

Статус: Offline

Большое спасибо snaper1993, !
Следующий раз буду знать!

snaper1993

Дата: Воскресенье, 09.11.2008, 23:32 | Сообщение # 8

Бывалый

Группа: Пользователи

Сообщений: 121

Репутация: 2

Замечания: 0%

Статус: Offline

Seqular, я понимаю что ти админ и тебе всьо можно, но можно прилично выражатся:

Quote

snaper1993, нифига подобного!

Добавлено (09.11.2008, 16:32)
---------------------------------------------
Еще перевод к задачкам будет(попоже)!

Я - желанный гость Сайта взаимопомощи программистам Pascal А ты?

Alexander

Дата: Воскресенье, 09.11.2008, 23:50 | Сообщение # 9

Всевышний

Группа: Модераторы

Сообщений: 475

Репутация: 16

Замечания: 0%

Статус: Offline

Quote (snaper1993)

но можно прилично выражатся

ИМХО- если не рецидив, то можно smile

Скажем дружно- нафиг нужно!

Seqular

Дата: Понедельник, 10.11.2008, 06:29 | Сообщение # 10

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

snaper1993, Я что, нецензурные выражения уптребляю? А вот ты неоднократно нарушал нормы русского языка

Quote (snaper1993)

ти админ и тебе всьо

- если хочешь - учту это и сделаю замечание...

Поддерживаю также проект сообщество молодых сисадминов

		Пятница, 24.01.2025
	Pascal 4 All