17 грудня на базі Мигіївської ЗОШ відбулась районна олімпіада з
інформатики. Попри обіцяну олімпіаду з "Комп'ютерних
технологій" завдання були виключно з програмавання на Turbo Pascal.
Пропоную завдання і мій розв'язок за допомогою Delphi.
Приводжу текст програми при натисканні кнопки і архів з повним вмістом
файлів. Якщо Ви знаєте раціональніше рішення завдань - поділіться. З
задоволенням опублікую і ваші розвязки.
1. Бандура (Скачати
файл) procedure TForm1.Button1Click(Sender:
TObject); var f,v:TextFile;
{} mas:array[1..100]
of Integer; ... Читати далі »
