сделаите програмку
если выстрелить N раз. если попадет премия 2 дополнительных патрона. в фаиле tiras.txt в первай строчке написана число N. В других N строчках вписан ноль (0) если непопал, а если попал (1). если выстрел был удачный в этойже строчке о дополнителных точности выстрела.
пример
5 семь выстрлов удачных
0
1 0 0
1 1 0 0 0
0
1 0 1 1 1 0 0 0 0
напишите программу каторая в фаил taikyk.txt написала скока выстрелов удачных.
в программе нельзя применять eoln и eof функций вместо их пишите циклы.
следущая задача
радился у отца сын и он решил откладывать деньги на свадьбу сына. первичные данные считываются с файла Pinigai.txt. В первой строчке напишите на угад когда сын женится натуральное число. скоко он будет лет собирать.
каждый год откладывает деньги.
пример
18
100
100
100
150
200
68
300
100
300
500
20
30
38
80
90
30
100
1000
вот ответ 3306
напишите программу скока денег собрал в файл Ves.txt.
следущая задача
в древнеяпонском календаре было 60 лет циклы сделаны из 12 лет вложенных циклов. вложенных циклов обозначали красок название: зеленый,красный,жолтый, белый и черный. каждого идетога цикла год имел животных названия :крыса,корова,тигр, заец, дракона, змея,лошади,овечки, обезьяны,петуха, собаки и кошки.
(1984 год - зеленой крысы - было нового цикла начало)
напишите программу которая пичатала введенных нашей эры года по названию по японскому календарю .
и последняя задача
акций курс постоянна меняется. акции лутше покупать когда они дешевые а продавать когда дорогие.
первичные данные - курс акций в первый день года и их изменение в массиве в каторам указываем на скока поднялась акция по сравнению с прошлым днем (от 2 до 365 года дней ).
напишите
а) идеи решения
б) процедуру , результатам было бы два числа
1 кагда акция наивыгодней покупать
2 кагда акцию выгодней продать.
пример 1 дне года акция была 155,5 а потом минялась так :
Metų diena 2 3 4 5 6 7 8 9 10 11 12 13 14
Akcijų kurso pokytis 2 0,5 –1 1,5 –2 –3 –1,5 1 1,5 0,5 6 –0,5 0
значит наивыгодней покупать акции 8 дня , а продать 12 дня.
первичные данные вводите в один массив каторый написан так
- Код: Выделить всё
const MAX = 365
type Tpokytis = array [1..MAX] of real;
первичных данных массив назовите pokytis
а результаты переменных назовите dPirkti и dParduoti.
сделайте программу.
