Задача 1: Вычисление степени При языка программирования Питон определите значение выражения 3 в степени 100. Какое число получилось? Напишите программу, вычисляющую это значение, запустите, выведите ответ, скопируйте его в буфер обмена и вставьте в поле для ввода ответа. Задача 2: Гипотенуза Катеты прямоугольного треугольника равны 7 и 10. При интерпретатора языка Питон вычислите длину гипотенузы этого треугольника. ответ дайте с точностью до 10 знаков после запятой.
Задача 3.Вычисление площади поверхности цилиндра Определить, сколько банок краски потребуется, чтобы окрасить поверхность бака цилиндрической формы. Покрасить надо и снаружи, и изнутри. Пользователь вводит диаметр и высоту бака, а также какую площадь можно окрасить одной банкой краски. Чтобы узнать количество требуемых банок краски, надо разделить окрашиваемую площадь на площадь, окрашиваемую одной банкой. Площадь бака представляет собой сумму площадей двух кругов (крышки и дна бака) и площади самой цилиндрической поверхности. Кроме того, если бак также красится изнутри, найденную площадь следует умножить на 2. Площадь круга через диаметр равна pi * d2 / 4 Площадь цилиндра: pi * d * h, где d и h - диаметр и высота цилиндра.
Задача 4.Вычислить ежемесячный платеж по кредиту и полную сумму выплат Требуется вычислить, сколько придется платить в месяц по кредиту и сколько всего отдать денег банку за весь период. Месячная выплата по займу вычисляется по такой загадочной формуле: m = (s * p * (1 + p)n) / (12 * ((1 + p)n – 1)) В этой формуле: m - размер месячного платежа; s - сумма займа (кредита); p - процент банка, выраженный в долях единицы (т. е. если 20%, будет 0.2). n - количество лет, на которые берется кредит.
const
m = 10;
var
t: array[1..m] of integer;
i, n, nm, sm: integer;
begin
//Заполняем массив сл.числами и подсчитываем
//количество элементов и среднее арифметическое
//согласно условию задачи
for i := 1 to m do
begin
t[i] := random(-20, 20);write(t[i]:4);
if (i > 1) and (i <= m) then
if t[i] > t[i - 1] then n := n + 1
else if t[i] < t[i - 1] then begin
sm := sm + t[i];nm := nm + 1;
end;
end;
writeln;
writeln('число элементов больших предыдущего = ', n);
writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
end.
Тестовое решение:
6 13 19 8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5
begin
writeln("введите количество метров пробегания жирафа");
read(y1);
writeln("введите, за сколько секунд он должен пробежать");
read(x1);
writeln("введите количество метров пробегания зайца");
read(y2);
writeln("введите, за сколько секунд он должен пробежать");
read(x2);
v1:=y1/x1;
v2:=y2/x2;
if v1>v2 then
begin
writeln("жираф чемпион");
end
else if v1<v2 then
begin
writeln("заяц чемпион");
end
else
begin
writeln("победила дружба);
end;
end;