Увага! Під час роботи з комп’ютером дотримуйтеся правил безпеки і санітарно- гігієнічних норм
СДЕЛАТЬ В ТАБЛИЧНОМ ПРОЦЕСОРРЕ
Задача 1. Банк.
На скільки років потрібно покласти в банк суму have, щоб отримати суму
want, якщо банк нараховує 24% річних?
Задача 2. Скарби.
Капітан Флінт та його пірати (K) знайшли скарб із N монет Капітан забрав
собі частину скарбу, що не перевищує половину Кожен із наступних піратів вчинив
так само На скількох піратів вдалось розподілити скарб таким чином? Чи був бунт?
(якщо обділеними залишилось більше половини піратів)
Задача 3. Яблука.
Яблука складені на прилавку пірамідкою: зверху одне, далі два, три, чотири і
т.д. Скільки яблук на прилавку, якщо всього N рядів?
Задача 4. Яблука-2.
Скільки ящиків потрібно для зберігання цих яблук, якщо у ящик поміститься
K яблук у висоту і M у ширину?
Задача 5. Юні підприємці.
В учнів було S грн. Пляшка з соком коштує price грн, порожня пляшка коштує
empty грн. Складіть алгоритм, за яким можна визначити, скільки пляшок соку
вип'ють учні, якщо вони повертатимуть порожні пляшки й на отримані гроші
купуватимуть повні?
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.