Поход в музей.

@parkalcer1 · Регистрация: 05.12.2016

Author24 — интернет-сервис помощи студентам

Группа студентов и школьников собирается в музей. Для школьников до 10 лет (включительно)
вход в музей бесплатный, а для остальных школьников и студентов до 18 лет включительно стои-
мость билета составляет половину от полной стоимости билета. Студенты старше 18 лет покупают
билет за полную стоимость — за 100 рублей.
Вам необходимо подсчитать, сколько рублей стоят билеты на всю группу.
В первой строке записано целое n — количество студентов и школьников в группе
Во второй строке записаны n целых чисел, каждое из которых не меньше 7 и не больше 25, —
возрасты студентов и школьников.
Формат выходных данных
Выведите одно целое число — суммарную стоимость билетов на всю группу.

@Puporev · 05.12.2016, 12:36

Pascal

read(n);
s:=0;
for i:=1 to n do
 begin
  read(v);
  if (v>10)and(v<19) then s:=s+50
  else if v>18 then s:=s+100;
 end;

@parkalcer1 · 05.12.2016, 12:45 **[ТС]**

не подскажете, а как связать с текстовым файлом? пример input:
2
9 10
output:0

Добавлено через 6 минут
Puporev,

Сообщение от parkalcer1

не подскажете, а как связать с текстовым файлом? пример input:
2
9 10
output:0

@Puporev · 05.12.2016, 12:53

А где Вы взяли эту задачу?

@parkalcer1 · 05.12.2016, 13:04 **[ТС]**

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

@Puporev · 05.12.2016, 13:14

Pascal

var n,i,v,s:integer;
    f:text;
begin
assign(f,'input.txt');//файл в папке с программой
reset(f);
read(f,n);
s:=0;
for i:=1 to n do
 begin
  read(f,v);
  if (v>10)and(v<19) then s:=s+50
  else if v>18 then s:=s+100;
 end;
close(f);
assign(f,'output.txt');
rewrite(f);
writeln(f,s);
close(f);
end.

@parkalcer1 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 6
		1
	Поход в музей. 05.12.2016, 12:23. Показов 1611. Ответов 5 Метки нет (Все метки) Группа студентов и школьников собирается в музей. Для школьников до 10 лет (включительно) вход в музей бесплатный, а для остальных школьников и студентов до 18 лет включительно стои- мость билета составляет половину от полной стоимости билета. Студенты старше 18 лет покупают билет за полную стоимость — за 100 рублей. Вам необходимо подсчитать, сколько рублей стоят билеты на всю группу. В первой строке записано целое n — количество студентов и школьников в группе Во второй строке записаны n целых чисел, каждое из которых не меньше 7 и не больше 25, — возрасты студентов и школьников. Формат выходных данных Выведите одно целое число — суммарную стоимость билетов на всю группу. 0

@parkalcer1 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 6
	05.12.2016, 12:45 [ТС]	3
	не подскажете, а как связать с текстовым файлом? пример input: 2 9 10 output:0 Добавлено через 6 минут Puporev, Сообщение от parkalcer1 не подскажете, а как связать с текстовым файлом? пример input: 2 9 10 output:0 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	05.12.2016, 12:53	4
	А где Вы взяли эту задачу? 0

@parkalcer1 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 6
	05.12.2016, 13:04 [ТС]	5
	Puporev, один из старейших задачников от моего учителя информатики, но там не было ни слова о текстовом файле, это он попросил 0

	05.12.2016, 13:14