Вправа 1. завдання «переїзд до києва» улітку ви з родиною збираєтеся переїхати жити до києва, оскільки батьки там працюють. ви вже обрали вищий навчальний заклад для подальшого навчання, лишається обрати школу для молодшого брата, який навчається у 8 класі й має хист і досвід складання комп’ютерних програм. ви разом з братом вирішили знайти в києві школу, учні якої мають найкращі результати з олімпіади з інформатики за останній рік. для переконання батьків у правильному виборі школи ви вирішили побудувати діаграму кількості призерів у п’яти навчальних закладах, що мають найвищі результати. числову діаграму слід побудувати на основі знайденої електронної таблиці. оберіть форму подання знайдених відомостей, яка буде зручна для перегляду батьками: презентація, електронний лист, текстовий документ, проект, підготовлений мовою програмування. передбачте, що батькам слід повідомити url-адреси сайтів двох найкращих на вашу думку, навчальних закладів та аргументи на їх користь. заповніть таблицю виконання завдання – файл таблиця-олімпіада, який збережений у папці компетентісні завдання. на електронну адресу вчителя надішліть розв’язок завдання: архів опрацьованої електронної таблиці, архів представлення результатів батькам, таблиця виконання
Создадим второго слона. Для этого надо выполнить все 4 команды:
1,2,3,4.
Второй слон стал на 80% меньше первого.
Создадим третьего слона.
Если мы сейчас снова вставим слона из буфера (команда 3), то вставится первый слон, и команду 4 придется делать 2 раза, чтобы он стал на 80% меньше, чем второй слон.
Поэтому для третьего слона нужно выделить второго и опять проделать все 4 команды: 1,2,3,4.
Чтобы получить еще 6 слонов, нужно эти команды повторить 6 раз.
ответ: В) повторить (1,2,3,4; 6)
var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.