Запишите на языке Паскаль программы решения задач № 25-30 из & 2.4. Используйте оператор while.
25) Напишите алгоритм, под управлением которого Робот обойдет прямоугольную область, обнесённую стеной, по периметру и закрасит угловые клетки. Размеры области неизвестны.
26) Запас рыбы в пруду оценен в А тонн. Ежегодный прирост рыбы составляет 15%. Ежегодный план отлова — В тонн. Наименьший запас рыбы составляет С тонн. (Запас ниже С тонн уже не восстанавливается.) Составьте программу для подсчёта количества лет, в течение которых можно выдерживать заданный план.
27) Дана последовательность 5, 9, 13, 17, … . Составьте программу для определения числа слагаемых, сумма которых равна 324.
28) Составьте программу для определения количества цифр в записи произвольного натурального числа.
29) Сумма 10000 рублей положена в сберегательный банк, при этом прирост составляет 5% годовых. Составьте программу, определяющую, через какой промежуток времени первоначальная сумма увеличиться в 2 раза.
30) Одноклеточная амёба каждые 3 часа делится на 2 клетки. Составьте алгоритм вычисления времени, через которое будет X амёб.
существует 3 основные алгоритмические конструкции: •Следование •Ветвление •Повторение
1) линейный алгоритм (следование) - это организации действий, при котором команды (действия) следуют друг за другом, последовательно
2) Разветвляющийся алгоритм (ветвление) - обеспечивает в зависимости от результата проверки условия (да или нет) выбор одного из вариантов работы алгоритма
3) Циклический алгоритм (повторение) - обеспечивает многократное выполнение совокупности действий, которые называются телом цикла
begin
readln(month);
if ((month >0 ) and ( month < 13)) then
case month of
1 : writeln ('january (31 days) ');
2 : writeln ('fabruary (28 days) ');
3 : writeln ('march (31 days)');
4 : writeln ('April (31 days) ');
5 : writeln ('fabruary (28 days)');
6 : writeln ('march (31 days)');
7 : writeln ('january (31 days) ');
8 : writeln ('fabruary (28 days) ');
9 : writeln ('march (31 days)');
10 : writeln ('january (31 days) ');
11 : writeln ('fabruary (28 days) ');
12: writeln ('march (31 days)');
end
else writeln('error');
readln;
end.