Fpc билет на одну поездку в метро стоит 15 рублей, билет на 10 поездок стоит 125 рублей, билет на 60 поездок стоит 440 рублей. пассажир планирует совершить n поездок. определите, сколько билетов каждого вида он должен приобрести, чтобы суммарное количество оплаченных поездок было не меньше n, а общая стоимость приобретенных билетов – минимальна. формат входных данных дано одно число n - количество поездок. формат выходных данных выведите три целых числа, равные необходимому количеству билетов на 1, на 10, на 60 поездок. примеры входные данные 129 выходные данные 0 1 2 целая часть от деления n на 60 будет являтся количеством билетов на 60 поездок. однако если остаток, полученый в результате этого деления, будет больше или равен 35, то "выгоднее" купить ешё 1 билет на 60 поездок, чем 3 на 10 и 5 на 1. если остаток меньше 35 - берем целую часть от его деления на 10 - получим кол-во белетов на 10 поездок. если остаток от этого деления равен 9, то "выгоднее" купить ещё 1 билет на 10 поездок, чем 9 на 1. если остаток меньше 9 - то этот остаток и будет являться кол-вом билетов на 1 поездку. что не так с моим кодом? var l, k, j, t, m, p, s, n: longint; begin read(n); l: =n div 60; k: =n mod 60; j: =k div 10; t: =k mod 10; if l> =1 then s: =l; if k> =35 then s: =l+1 else if k< 35 then p: =j; if t=9 then p: =j+1 else if t< 9 then m: =t; writeln(m, ' ', p, ' ', s) end.

Var   n,i : integer;       a : array [1..3] of integer;   begin read(n);   while n> =35 do    begin   inc(a[3]);     n: =n-60;   end;   while n> =9 do      begin    inc(a[2]);   n: =n-10;   end;   while n> =1 do    begin    inc(a[1]);   dec(n);   end;   for i: =1 to 3 do    write(a[i], ' ');   end.

nomer3

program ab;

uses crt

uses sysutils;

var s,s1: string;

i,j: integer;

begin

clrscr;

write('введите строку слово');

writeln;

readln(s);

for i: =1 to length(s) do

for j: =1 to length(s) do

if (s[i]=s[j]) and(i< > j)

then

if pos(s[i], s1)=0

then s1: =s1+s[i]+' ';

write('повторяющиеся символы: ', s1);

readln;

end.

nomer2

program as

uses crt;

var s,sp: string;

i: integer;

begin

clrscr;

write('s=');

readln(s);

sp: ='';

for i: =1 to length(s) do

sp: =s[i]+sp;

if sp=s then writeln ('палиндром')

else writeln ('не палиндром');

readkey

end.

nomer1

function compare(s1,s2: string): boolean;

begin

result: =s1=s2;

end;

var s1,s2: string;

begin

readln(s1);

readln(s2);

if compare(s1,s2) then write('yes')

else write('no')

end.

 

program pr_a;  

var a: array[1..10] of integer;

i, x, y: integer;

begin

x: =0;

y: =0;

for i: =1 to 10 do

begin

a[i]: =random(11);

write(a[i],' ');

writeln;

end;

for i: =1 to 10 do

 

begin

if a[i] mod 2=0 then

x: =a[i]*2

else

y: =a[i]*3;

write(y,' ');

write(x,' ');

end;

end.

 

 

 

  а дальше мне лень : )