Завдання 1. Розрахувати заробітну плату в Microsoft Excel, якщо нарахування це: • посадовий оклад;
• премія;
• доплата на дітей.
Утримання включають:
• податок;
• перерахунок в ощадний банк.
Зокрема, премія становить 10% від посадового окладу, якщо стаж роботи менший, ніж 5 років, і 20%, якщо стаж роботи більший, ніж 5 років; доплата на дітей становить 30% від посадового окладу при наявності 2 і більше дітей.
Податок дорівнює:
• 0, якщо нараховано менше, ніж 2000 грн.;
• 15% від нарахувань, якщо нараховано більше, ніж 2000 і менше, ніж 4000 грн.;
• 20% від нарахувань, якщо нараховано більше, ніж 4000 грн.
Перерахувань в ощадний банк не має. Визначити суму "до виплат".
Создадим второго слона. Для этого надо выполнить все 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.