Отправляет email-рассылки с помощью сервиса Sendsay

Олимпиадные задачи с решениями на Turbo Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.826 RSS
  Декабрь 2001   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Открыта: 02-12-2001

Автор
Aslof

Статистика

3.826 подписчиков
0 за неделю
←   Все выпуски   →

Олимпиадные задачи с решениями на Turbo Pascal


Служба Рассылок Subscribe.Ru
Олимпиадные задачи c решениями на Turbo Pascal

Олимпиадные задачи с решениями на Turbo Pascal

Рассылка проекта sapisoft.h1.ru [#004]
Главная О нас Программы Вакансии Документация Задачи FAQ по Delphi Ссылки

Слияние чисел
Условие:
Из цифр двух натуральных чисел составить наибольшее возможное число, сохраняя первоначальную последовательность цифр.

Технические условия:
Программа должна читать исходные числа из файла input.txt, и выводить полученое число в файл output.txt.

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

Input.txt

Output.txt
20
4181		 421810
111
222		 222111
97531
86420		 9876543210

Решение:

Идея решения. Можно прочитать числа из файла как текстовые переменные, а затем посимвольно переводить изображения цифр в цифры, и составлять наибольшее число.

var
a,b,c:String;
F:text;
i,x,y,code:integer;
begin
assign(f,'input.txt');
reset(f);
readln(f,A);
readln(F,B);
close(f);
while (a<>'') and (b<>'') do begin
val(a[1],x,code);
val(b[1],y,code);
if x>y then begin
c:=c+a[1];delete(a,1,1);end else begin
c:=c+b[1];delete(b,1,1);end;end;
c:=c+a+b;
assign(f,'output.txt');
rewrite(f);
writeln(f,c);
close(f);
end.

Пассажиры

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

Технические условия:
Программа должна читать исходные данные из файла input.txt, первая строка которого содержит количество делегатов, а вторая и третья - числа K и M. В файл output.txt должно выводиться количество машин, необходимых для перевозки всех делегатов.

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

Input.txt

Output.txt
20
3
4		 6
12
2
2		 6
25
5
5		 5
100
2
1		 67

Жду ваших предложений и замечаний, Шамис Алексей
Copyright © 2001 by Shamis Alex.
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное