1.Дана сторона квадрата a. Найти его периметр P = 4·a. Если найденное значение превышает 12, вывести результат на экран, иначе вывести сообщение «Периметр не превышает 12». 2.Дана сторона квадрата a. Найти его площадь S = a2. Если найденное значение превышает 20, найти периметр этого квадрата и вывести результат на экран.
3.Даны два отрезка a и b. Найти площадь прямоугольника S1 = a·b и площадь квадрата S2=a2. Сравнить полученные значения и вывести наименьшее на экран.
4.Дан диаметр окружности d. Найти ее длину L = π·d. Если найденное значение превышает 15, вывести результат на экран, иначе вывести сообщение «Длина окружности не превышает 15».
5.Дана длина ребра куба a. Найти объем куба V = a³. Если найденное значение
6.Даны три отрезка a, b, c. Найти объем прямоугольного параллелепипеда V1 = a·b·c и объем шара V2=4/3 π·a3. Сравнить полученные значения и вывести наибольшее на экран.
7.Найти длину окружности L= 2·π·R заданного радиуса R. Если найденное значение меньше 25, вычислить и вывести площадь круга S = π·R².
8.Даны два положительных числа a и b. Найти их среднее арифметическое: SR= (a + b)/2. Если найденное значение превышает 15, вычислить и вывести на экран площадь прямоугольника со сторонами a и b.
9.Даны два неотрицательных числа a и b. Найти их среднее геометрическое, то есть квадратный корень из их произведения: . Если найденное значение меньше 5, вычислить и вывести на экран периметр прямоугольника со сторонами a и b.
10.Даны два числа x и y. Найти их сумму S. Если S ≥ 0, вывести результат на экран. Иначе вывести сообщение «Сумма отрицательна». 11.Даны два ненулевых числа x и y. Найти их произведение Р. Если произведение превышает 20, вычислить и вывести на экран площадь его поверхности S=6*a^2
с задачами :с
Это число должно быть полным квадратом и 1 <= x <= 6, 0 <= y <= 6.
Число - полный квадрат, делится на 8 -> делится на 16 -> 49x + y делится на 2 -> x и y одинаковой четности.
1) x = 2X, y = 2Y; 1 <= X <= 3, 0 <= Y <= 3.
49X + Y - полный квадрат.
- X = 1: 49 + Y - п.к., Y = 0
- X = 2: 98 + Y - п.к., Y = 2 (не подходит, x и y совпадают)
- X = 3: 147 + Y - п.к., Y > 3
2) x = 2X + 1, y = 2Y + 1; 0 <= X <= 2, 0 <= Y <= 2.
49X + Y + 25 - полный квадрат
- X = 0: 25 + Y - п.к., Y = 0 (не подходит, x и y совпадают)
- X = 1: 74 + Y - п.к., Y > 2
- X = 2: 123 + Y - п.к., Y > 2
ответ: 2200 (в десятичной сс это 784 = 28^2)
иначе не сможем выполнить 1 и 2 пункт задания.
Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
Исправляем N:N div 10; на N:= N div 10;
После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193
Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do
После всех исправлений код программы стал таким:
var
N, k: integer;
begin
readln(N);
k := 9;
while N > 10 do
begin
if (N mod 10 < k) then k := N mod 10;
N := N div 10;
end;
write(k)
end.