На конференцию приехало n человек для их перевоза выделили автомобили вместимостью k и m

Всероссийская олимпиада школьников по информатике

И НАУКИ КРАСНОДАРСКОГО КРАЯ

Государственное бюджетное образовательное учреждение

«ЦЕНТР ДОПОЛНИТЕЛЬНОГО ОБРАЗОВАНИЯ ДЛЯ ДЕТЕЙ»

350000 г. Краснодар,

Всероссийская олимпиада школьников

2014-2015 учебный год

Задача 1. (20 баллов)

Ограничение по времени:

Ограничение по памяти:

Автомобили. На конференцию приехало N человек. Для их перевозки выделили автомобили вместимостью K и M человек (водитель в расчетах не участвует). К гостинице автомобили подаются в таком порядке: сначала вместимостью K человек, потом — M человек, после этого опять — K человек, потом M человек и так далее. В автомобиле можно перевозить не более максимально допустимого количества пассажиров.

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

Формат входных данных

В строке файла записано натуральные числа N, K и M, разделенные пробелом.

Формат выходных данных

Выходной файл содержит единственное число — количество автомобилей.

Пример входных и выходных файлов

Задача 2. (30 баллов)

Ограничение по времени:

Ограничение по памяти:

Сумма цифр. Напишите программу, которая вычисляет сумму первых К цифр 100‑значного числа.

Формат входных данных

В первой строке содержится число K (1 ≤ K ≤ 100) — количество цифр.

Во второй строке записано 100‑значное число.

Формат выходных данных

Одно число — сумму первых К цифр данного числа.

Пример входных и выходных файлов

Ограничение по времени:

Ограничение по памяти:

Симметричные последовательности. Последовательность чисел назовем симметричной, если она одинаково читается как слева направо, так и справа налево. Например, следующие последовательности являются симметричными:

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

Формат входных данных

В первой строке содержится число N (1 ≤ N ≤ 100) — количество элементов исходной последовательности. Во второй строке записано N целых чисел, разделенных пробелами — элементы этой последовательности.

Формат выходных данных

В первой строке число M — минимальное количество элементов, которое надо дописать к последовательности, во второй строке M чисел, которые надо дописать к последовательности.

Источник

На конференцию приехало n человек для их перевоза выделили автомобили вместимостью k и m

Решение:
Идея решения. До тех пор, пока число делегатов не будет равно нулю (пока всех не увезут), отнимаем от числа N число K, затем число M, и так далее.

var
n,k,m:integer;i:integer;f:text;
begin
assign(f,’input.txt’);
reset(f);
read(f,n);
read(f,k);
read(f,m);
close(f);
i:=0;
while N>0 do begin
i:=i+1;
if i mod 2<>0 then n:=n-k else N:=N-M;end;
assign(f,’output.txt’);
rewrite(f);
writeln(F,i);
close(f);
end.

Условие:
Определите, какая из цифр в десятичной записи всех простых чисел из заданного диапазона встречается чаще всего. Если таких цифр несколько, найдите наименьшую из них.

Input.txt

Output.txt 10
20 1

Решение:
var
a,b,i,max,maxn:integer;
n:array [1..10] of integer;
f:text;
procedure add(i:integer);
var s:string;p,code,x:integer;
begin
str(i,s);
for p:=1 to length(s) do begin
val(s[p],X,code);
inc(n[X+1]);
end;
end;
function prost(i:integer):boolean;
var j:integer;
begin
for j:=2 to (i-1) do if (i mod j=0) then if i<>2 then prost:=false;
end;
begin
assign(f,’input.txt’);
reset(f);
readln(f,a);readln(f,b);
close(f);
for i:=a to b do if prost(i) then add(i);
max:=0;
for i:=10 downto 1 do begin if n[i]>= max then begin max:=n[i];maxn:=i-1;end;end;
assign(f,’output.txt’);
rewrite(f);
write(f,maxn);
close(f);
end.

Примеры входных и выходных данных:

Источник

Задания pascal abc для школьников с решением

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

writeln (‘ Введите a’); readln (a);

writeln (‘ Введите b’); readln (b);

if b=1 then writeln (a)

Из одного порта в другой необходимо перевезти 15 различных грузов. Грузоподъемность судна, на котором будет проходить перевозка, 50 тонн. Грузы пронумерованы, и информация о массах грузов хранится в массиве М(15). Определить, сколько рейсов необходимо сделать судну, если грузы неделимы и могут перевозиться только подряд в порядке их нумерации. (Предполагается, что масса отдельного груза не превышает 50 тонн).

mas=array[1..15] of integer;

writeln (‘ Введите m’,'[‘,i,’]’);

writeln (‘Введите стартовый капитал’);

writeln (‘Введите % увеличения капитала’);

writeln (‘Введите сумму, необходимую для покупки магазина’);

Число Цукермана – натуральное число, которое делится на произведение своих цифр, например: 175 делится на 1·7·5=35. Составить программу, которая выводит на экран все трехзначные числа Цукермана.

for i := 111 to 999 do

b := (i div 10) mod 10;

if (b <> 0) and (c <> 0) and (i mod (a * b * c) = 0) then writeln (i);

На конференцию приехало N человек. Для их перевоза выделили автомобили вместимостью К и М человек (без водителя). К гостинице автомобили подаются в таком порядке: сначала вместимостью К человек, потом – М человек и так далее. В автомобиле можно перевозить не более максимально допустимого количества пассажиров. Определить, сколько необходимо автомобилей для перевозки всех делегатов конференции.

writeln (‘Введите количество участников’);

writeln (‘Введите вместимость первого автомобиля’);

writeln (‘Введите вместимость второго автомобиля’);

if x mod 2<>0 then N:=N-K else N:=N-M;

A: array [1..4] of integer;

writeln (‘Израсходовано спичек’, m );

Сформировать квадратную матрицу следующего вида.

A: array [1..5, 1..5] of byte;

a := 8 * a + 4 * b + 2 * c + d;

Даны два натуральных числа. Найти их наименьшее общее кратное.

while m <> n do begin

if m > n then begin

Дана последовательность символов длины n ( n >= 1 ). Проверить баланс круглых скобок в этом выражении. Например, при вводе выражения (())() программа должна сообщить о правильности расстановки скобок, а при вводе выражения ((()) – о неправильности.

Примечание: сбалансированной скобочной записью называется символьное выражение, в котором каждой открывающей скобке соответствует закрывающая скобка правее и наоборот, каждой закрывающей скобке соответствует открывающая скобка левее.

for i := 1 to n do begin

if c = ‘(‘ then inc(count);

if c = ‘)’ then dec(count);

a, b, i, j, d, m:integer;

function nod(a, b:integer):integer;

if a>b then nod:=nod(a-b, b) else nod:=nod(a, b-a)

writeln (‘ Введите НОД двух чисел d’);

writeln (‘ Введите НО K двух чисел m’);

if ((nod(a, b)=d) and ((a*b div nod(a, b))=m)) then writeln (i, j);

Правительство гарантирует, что инфляция в новом году составит р % в месяц. Какого роста цен за год можно ожидать? Составить программу решения задачи.

Сложные проценты вычисляются по формуле .

writeln (‘Введите процент месячной инфляции’);

Факультету выделен стипендиальный фонд в размере f рублей в месяц. Результаты сессии таковы: «отличников», «хорошистов», «троечников». Повышенная стипендия (для отличников) составляет рублей, обычная – рублей; задолжники стипендии лишаются. Составить программу, определяющую сколько студентов каждой категории могут получать стипендию и каков будет остаток фонда на материальную помощь малоимущим студентам?

writeln (‘ Введите размер фонда ’);

writeln (‘Введите количество отличников, хорошистов и троечников’);

readln ( n 1, n 2, n 3);

writeln (‘Введите размер стипендий’);

if f>s1*n1 then k1:=n1 else k1:=f div s1;

if f>s2*n2 then k2:=n2 else k2:=f div s2;

if f>s2*n3 then k3:=n3 else k3:=f div s2;

writeln (‘Количество отличников, получивших стипендию=’, k 1);

if k 2>0 then writeln (‘Количество хорошистов, получивших стипендию= ‘, k 2);

if k 3>0 then writeln (‘Количество троечников, получивших стипендию =’, k 3);

writeln (‘Фонд материальной помощи=’, f );

Раздел рекомендуется для самообучения, повторения пройденного материала и в качестве справочника. Школьники могут использовать материалы данного раздела для подготовки к ЕГЭ по информатике.

Источник

Сборник задач с решениями на языке программирования Паскаль

Онлайн-конференция

«Современная профориентация педагогов
и родителей, перспективы рынка труда
и особенности личности подростка»

Свидетельство и скидка на обучение каждому участнику

Компьютер в первую секунду печатает на экране 1, во вторую – число 12, в третью – число 23. То есть, в каждую следующую секунду – на 11 больше, чем в предыдущую. В какую секунду впервые появится число, делящееся на 2009?

while x mod 2009<>0 do

writeln (‘Через ‘, k, ‘ секунд’);

if y mod 2 =0 then k:=k+1;

Выясните, лежат ли на одной прямой точки А(x1, y1), B(x2, y2), C(x3, y3)

Точки лежат на одной прямой

x1, x2, x3, y1, y2, y3, z, n:real;

write (‘Введите координаты точки А ‘);

write (‘Введите координаты точки В ‘);

write (‘Введите координаты точки C ‘);

if (z=n) and (z=(x2-x1)/(y2-y1)) then

writeln (‘Точки лежат на одной прямой’)

writeln (‘Точки не лежат на одной прямой’);

var k, i, n, p:integer;

r:array [1..3] of longint;

write(‘количество роботов k=’); readln(k);

write(‘количество лет n=’); readln(n);

else if p=1 then begin x:=x-3; y:=2 end

else begin x:=x-1; y:=1 end;

Суточный рацион коровы составляет a кг сена, b кг силоса и c кг комбикорма. В хозяйстве, содержащем стадо из k голов, осталось x центнеров сена, y тонн силоса и z мешков комбикорма по 50 кг. Сколько еще дней хозяйство сможет кормить коров по полному рациону.

if (x>=r) and (y>=r) and (z>=r) then

Предприниматель, начав дело, взял кредит размером k рублей под p процентов годовых и вложил его в свое дело. По прогнозам, его дело должно давать прибыль r рублей в год. Сможет ли он накопить сумму, достаточную для погашения кредита, и если да, то через сколько лет?

if kol>=50 then writeln (‘no’) else writeln (kol);

writeln (‘Введите a’); readln (a);

writeln (‘Введите b’); readln (b);

if b=1 then writeln (a)

Из одного порта в другой необходимо перевезти 15 различных грузов. Грузоподъемность судна, на котором будет проходить перевозка, 50 тонн. Грузы пронумерованы, и информация о массах грузов хранится в массиве М(15). Определить, сколько рейсов необходимо сделать судну, если грузы неделимы и могут перевозиться только подряд в порядке их нумерации. (Предполагается, что масса отдельного груза не превышает 50 тонн).

mas=array[1..15] of integer;

writeln (‘Потребовалось, k,’рейсов’);

writeln (‘Введите стартовый капитал’);

writeln (‘Введите % увеличения капитала’);

writeln (‘Введите сумму, необходимую для покупки магазина’);

Число Цукермана – натуральное число, которое делится на произведение своих цифр, например: 175 делится на 1·7·5=35. Составить программу, которая выводит на экран все трехзначные числа Цукермана.

for i := 111 to 999 do

b := (i div 10) mod 10;

if (b <> 0) and (c <> 0) and (i mod (a * b * c) = 0) then writeln (i);

На конференцию приехало N человек. Для их перевоза выделили автомобили вместимостью К и М человек (без водителя). К гостинице автомобили подаются в таком порядке: сначала вместимостью К человек, потом – М человек и так далее. В автомобиле можно перевозить не более максимально допустимого количества пассажиров. Определить, сколько необходимо автомобилей для перевозки всех делегатов конференции.

writeln (‘Введите количество участников’);

writeln (‘Введите вместимость первого автомобиля’);

writeln (‘Введите вместимость второго автомобиля’);

if x mod 2<>0 then N:=N-K else N:=N-M;

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

A: array [1..4] of integer;

writeln (‘В коробке’, n, ‘закончились спички’);

writeln (‘Израсходовано спичек’, m);

Сформировать квадратную матрицу следующего вида.

A: array [1..5, 1..5] of byte;

a := 8 * a + 4 * b + 2 * c + d;

Даны два натуральных числа. Найти их наименьшее общее кратное.

while m <> n do begin

if m > n then begin

Дана последовательность символов длины n ( n >= 1 ). Проверить баланс круглых скобок в этом выражении. Например, при вводе выражения (())() программа должна сообщить о правильности расстановки скобок, а при вводе выражения ((()) – о неправильности.

Примечание: сбалансированной скобочной записью называется символьное выражение, в котором каждой открывающей скобке соответствует закрывающая скобка правее и наоборот, каждой закрывающей скобке соответствует открывающая скобка левее.

for i := 1 to n do begin

if c = ‘(‘ then inc(count);

if c = ‘)’ then dec(count);

a, b, i, j, d, m:integer;

function nod(a, b:integer):integer;

if a>b then nod:=nod(a-b, b) else nod:=nod(a, b-a)

writeln (‘Введите НОД двух чисел d’);

writeln (‘Введите НОK двух чисел m’);

if ((nod(a, b)=d) and ((a*b div nod(a, b))=m)) then writeln (i, j);

Правительство гарантирует, что инфляция в новом году составит р % в месяц. Какого роста цен за год можно ожидать? Составить программу решения задачи.

writeln (‘Введите процент месячной инфляции’);

writeln (‘Введите размер фонда’);

writeln (‘Введите количество отличников, хорошистов и троечников’);

writeln (‘Введите размер стипендий’);

if f>s1*n1 then k1:=n1 else k1:=f div s1;

if f>s2*n2 then k2:=n2 else k2:=f div s2;

if f>s2*n3 then k3:=n3 else k3:=f div s2;

writeln (‘Количество отличников, получивших стипендию=’,k1);

if k2>0 then writeln (‘Количество хорошистов, получивших стипендию= ‘,k2);

if k3>0 then writeln (‘Количество троечников, получивших стипендию =’,k3);

writeln (‘Фонд материальной помощи=’, f);

writeln (‘Введите количество коробок n’);

writeln (‘Введите количество минут m’);

if m=0 then begin j:=0; m:=n end else j:=n-m;

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

a:array[1..n] of integer;

b:array[1..n] of integer;

FOR j:= i + 1 TO n do

В книге N страниц. Составить программу подсчета количества десятичных цифр, требуемых для нумерации всех страниц книги. Нумерация проводится от 1 и далее.

Король Флатландии решил вырубить некоторые деревья, растущие перед его дворцом. Деревья перед дворцом короля посажены в ряд, всего там растет N деревьев, расстояния между соседними деревьями одинаковы.

После вырубки перед дворцом должно остаться M деревьев, и расстояния между соседними деревьями должны быть одинаковыми. Помогите королю выяснить, сколько существует способов вырубки деревьев.

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

writeln (‘Количество способов вырубки деревьев=’, s);

Из элементов массива А(2n) получить массивы В(n) и C(n) следующим образом. Выбрать в массиве А два наиболее близких по значению элемента; меньший из них поместить в массив В, а больший – в массив С. Продолжить выбор из оставшихся элементов до полного заполнения массивов В и С.

8 0 10 4 1 99 3 15 2 11

Папа Карло, играя на шарманке, ежедневно зарабатывает у туристов 5 золотых (монет). Весь заработок уходит на обед папы Карло и его друзей в харчевне «Три пескаря», где плату принимают только деревянными (монетами). В меняльных лавках папу Карло не обслуживают. Банкир Карабас-Барабас для друзей папы Карло установил индивидуальные правила обмена золотых на деревянные в разных лавках (смотри таблицу). Каждый из друзей может обменять только один золотой и в каждой лавке могут обслужить только одного из друзей.

Таблица обмена одного золотого на деревянные

Составить программу нахождения оптимального плана обмена 5 золотых на деревянные в виде: Буратино, N лавки; Мальвина, N лавки; Пьеро, N лавки; Арлекино, N лавки; Артемон, N лавки; количество полученных деревянных.

В программе рассматривается =120 возможных вариантов обмена золотых монет на деревянные и выбирается оптимальный вариант обмена.

F:array[1..5] of integer;

P:array[1..5] of string;

Q[1, 1]:=12; Q[1, 2]:=13; Q[1, 3]:=10; Q[1, 4]:=7; Q[1, 5]:=8;

Q[2, 1]:=10; Q[2, 2]:=11; Q[2, 3]:=9; Q[2, 4]:=7; Q[2, 5]:=9;

Q[3, 1]:=11; Q[3, 2]:=10; Q[3, 3]:=9; Q[3, 4]:=8; Q[3, 5]:=4;

Q[4, 1]:=10; Q[4, 2]:=11; Q[4, 3]:=8; Q[4, 4]:=10; Q[4, 5]:=5;

Q[5, 1]:=7; Q[5, 2]:=12; Q[5, 3]:=10; Q[5, 4]:=9; Q[5, 5]:=7;

P[1]:=’Буратино’; P[2]:=’Мальвина’; P[3]:=’Пьеро’;

if (a<>b) AND (a<>c) AND (a<>d) AND (a<>e) AND (b<>c) AND (b<>d)AND (b<>e) AND (c<>d) AND (c<>e) AND (d<>e) then

Курс повышения квалификации

Охрана труда

Курс профессиональной переподготовки

Библиотечно-библиографические и информационные знания в педагогическом процессе

Курс профессиональной переподготовки

Охрана труда

Ищем педагогов в команду «Инфоурок»

Номер материала: ДБ-1543274

Не нашли то что искали?

Вам будут интересны эти курсы:

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

Путин поручил не считать выплаты за классное руководство в средней зарплате

Время чтения: 1 минута

Учителям предлагают 1,5 миллиона рублей за переезд в Златоуст

Время чтения: 1 минута

Школьников Улан-Удэ перевели на удаленку из-за гриппа и ОРВИ

Время чтения: 1 минута

В России утвердили новый порядок формирования федерального перечня учебников

Время чтения: 1 минута

МГУ откроет первую в России магистерскую программу по биоэтике

Время чтения: 2 минуты

В Петербурге школьникам разрешили уйти на каникулы с 25 декабря

Время чтения: 2 минуты

Подарочные сертификаты

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

Все материалы, размещенные на сайте, созданы авторами сайта либо размещены пользователями сайта и представлены на сайте исключительно для ознакомления. Авторские права на материалы принадлежат их законным авторам. Частичное или полное копирование материалов сайта без письменного разрешения администрации сайта запрещено! Мнение администрации может не совпадать с точкой зрения авторов.

Источник

Презентация для подготовки к олимпиаде «Запись в файл»

Онлайн-конференция

«Современная профориентация педагогов
и родителей, перспективы рынка труда
и особенности личности подростка»

Свидетельство и скидка на обучение каждому участнику

Описание презентации по отдельным слайдам:

Файл – набор данных, имеющий имя. Для хранения информации полученной в результате работы программ, используют различные внешние запоминающие устройства: гибкие магнитные диски, винчестера, магнитные ленты и другие носители.

Кратко… Const FILENAME = ‘a’; begin Assign(input,FILENAME + ‘.in’); Assign(output,FILENAME + ‘.out’); Reset(input); Rewrite(output); Close(input); Close(output); end.

При вводе данных не следует размещать в одной строке файла числовые и строковые данные, следует вводить в одном операторе ввода числа, в другом – слова. ReadLn(f,число, число, число); ReadLn(f,слово, слово, слово);

Примеры входных и выходных файлов: Input.txt 15 3 4 Output.txt 5 пока всех не увезут, отнимаем от числа N число K, затем число M, и так далее..

Спички (40 баллов) Есть N спичек. Необходимо найти максимально возможную площадь прямоугольника, который можно сложить из этих спичек. При построении прямоугольника нельзя ломать спички и не обязательно использовать все спички. Длины всех спичек одинаковы и равны 1 см. Формат входных данных В первой строке находится одно целое число N (4 ≤ N ≤ 1000). Формат выходных данных Выведите максимальную площадь прямоугольника в кв.см. Пример match.in match.out 4 1 16 16 18 20 599 22350

Var N, x,z,S:integer; Begin read(N); x:= n div 4; z:=n mod 4; y= x+(z div 2); s=x*y; writeln(S); END.

Спасибо за внимание! Удачи!

Курс повышения квалификации

Дистанционное обучение как современный формат преподавания

Курс профессиональной переподготовки

Информатика: теория и методика преподавания в образовательной организации

Курс профессиональной переподготовки

Математика и информатика: теория и методика преподавания в образовательной организации

Ищем педагогов в команду «Инфоурок»

Номер материала: ДБ-129339

Не нашли то что искали?

Вам будут интересны эти курсы:

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

Учителям предлагают 1,5 миллиона рублей за переезд в Златоуст

Время чтения: 1 минута

ВПР для школьников в 2022 году пройдут весной

Время чтения: 1 минута

В России утвердили новый порядок формирования федерального перечня учебников

Время чтения: 1 минута

ЕГЭ в 2022 году пройдет в доковидном формате

Время чтения: 1 минута

Путин поручил не считать выплаты за классное руководство в средней зарплате

Время чтения: 1 минута

Онлайн-конференция о профориентации и перспективах рынка труда

Время чтения: 3 минуты

Подарочные сертификаты

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

Все материалы, размещенные на сайте, созданы авторами сайта либо размещены пользователями сайта и представлены на сайте исключительно для ознакомления. Авторские права на материалы принадлежат их законным авторам. Частичное или полное копирование материалов сайта без письменного разрешения администрации сайта запрещено! Мнение администрации может не совпадать с точкой зрения авторов.

Источник