Вправа 1. завдання «переїзд до києва» улітку ви з родиною збираєтеся переїхати жити до києва, оскільки батьки там працюють. ви вже обрали вищий навчальний заклад для подальшого навчання, лишається обрати школу для молодшого брата, який навчається у 8 класі й має хист і досвід складання комп’ютерних програм. ви разом з братом вирішили знайти в києві школу, учні якої мають найкращі результати з олімпіади з інформатики за останній рік. для переконання батьків у правильному виборі школи ви вирішили побудувати діаграму кількості призерів у п’яти навчальних закладах, що мають найвищі результати. числову діаграму слід побудувати на основі знайденої електронної таблиці. оберіть форму подання знайдених відомостей, яка буде зручна для перегляду батьками: презентація, електронний лист, текстовий документ, проект, підготовлений мовою програмування. передбачте, що батькам слід повідомити url-адреси сайтів двох найкращих на вашу думку, навчальних закладів та аргументи на їх користь. заповніть таблицю виконання завдання – файл таблиця-олімпіада, який збережений у папці компетентісні завдання. на електронну адресу вчителя надішліть розв’язок завдання: архів опрацьованої електронної таблиці, архів представлення результатів батькам, таблиця виконання
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998
const
n=10;
var
a,b:array[1..n] of integer;
i,k,t:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do begin
a[i]:=Random(50);
Write(a[i],' ')
end;
Writeln;
for i:=1 to n do begin
b[i]:=Random(50);
Write(b[i],' ')
end;
Writeln;
Write('k t='); Read(k,t);
for i:=1 to n do begin
if a[i]>t then a[i]:=a[i]+4;
Write(a[i],' ')
end;
Writeln;
for i:=1 to n do begin
if b[i]>10*k then b[i]:=b[i]+k;
Write(b[i],' ')
end;
Readkey
end.
Тестовое решение:
1 6 23 12 47 1 44 24 6 18
31 30 30 29 0 3 43 32 46 21
k t=2 20
1 6 27 12 51 1 48 28 6 18
33 32 32 31 0 3 45 34 48 23