begin
var (cost, t, k) : = (arr(15, 70, 125, 230, 440), arr(1, 5, 10, 20, 60), new integer[5]);
var n : = readinteger('n-> ');
for var i : = 4 downto 0 do
begin
k[i] : = n div t[i]; n : = n mod t[i];
end;
if k[0] * cost[0] > = cost[1] then begin k[0] : = 0; inc(k[1]); end;
if k[0] * cost[0] + k[1] * cost[1] > = cost[2] then
begin
k[0] : = 0; k[1] : = 0; inc(k[2]);
end;
if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] > = cost[3] then
begin
k[0] : = 0; k[1] : = 0; k[2] : = 0; inc(k[3]);
end;
if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] + k[3] * cost[3] > = cost[4] then
begin
k[0] : = 0; k[1] : = 0; k[2] : = 0; k[3] : = 0; inc(k[4]);
end;
for var i : = 0 to 4 do writelnformat('{0} билет(ов)- {1} штук(а)', t[i], k[i]);
end.
пример(1):
n-> 37
1 билет(ов)- 0 штук(а)
5 билет(ов)- 0 штук(а)
10 билет(ов)- 0 штук(а)
20 билет(ов)- 0 штук(а)
60 билет(ов)- 1 штук(а)
пример(2):
n-> 35
1 билет(ов)- 0 штук(а)
5 билет(ов)- 1 штук(а)
10 билет(ов)- 1 штук(а)
20 билет(ов)- 1 штук(а)
60 билет(ов)- 0 штук(а)
тіл әліпбиі — қазақ тілінің әріптерінің жүйелі тізбегі, қазақ халқының мәдени өмірінде басқа да түркі халықтарымен бірге пайдаланып келген әр түрлі әріп таңбаларынан тұратын дыбыстық жазу жүйесі.
Синтаксис ( гр. σύνταξις - құру, тәртіп, амал-тәсіл ) - сөз тіркесі туралы, сөйлем туралы ғылым. Сөйлеу дағдысы бойынша сөздер өзара белгілі бір жүйемен тіркеседі. Сол тіркестердің де, сөйлемдердің де өз жүйелері, өз заңдары болады. Синтаксис сөйлеудің калыптасу ережелерін зерттейді.
Транслятор- tоranslator) - 1) бір тілде берілген (жазылған) алгоритмді екінші тіл түріне ауыстыратын программа. Жүзеге асыру тәсілдеріне байланысты аударғыш-компилятор және аударғыш-интерпретатор болып екіге бөлінеді; 2) программаны аударатын программа немесе техникалық құрылғы; бастапқы программаны объекті модульге айналдыратын өңдеуіш программа.
Айнымалы —
әріп түрінде немесе әріптер тобы түрінде программаға енгізілетін және уақыт, ұзындық, баға, түс және т.б. әр түрлі мәндерді қабылдайтын программадагы сандық шама;
белгілі бір мәліметтер типін сақтай алатын және программаны атқару барысында мәнін өзгертуге болатын атауы белгілі объект.
##
var b := MatrRandom(6, 6, -99, 99);
b.Println(4);
b.Col(2).Sum.Print