Найти длину стороны второго прямоугольника, если длина одной из его сторон равна С - Pascal ABC
Формулировка задачи:
Помогите пожалуйста решить задачи:
1.Длины сторон первого прямоугольника А и В, его площадь в 6 раз меньше площади второго прямоугольника. Найти длину стороны второго прямоугольника, если длина одной из его сторон равна С.
3.Дано трехзначное число. Найти число, полученное при перестановке второй и третьей цифр за-данного числа.
4.Составить программу, печатающую значение true, если указанное высказывание является истин-ным, и false в противном случае, когда хотя бы одно из чисел a, b, c отрицательно.
5.Грузовой автомобиль выехал из одного города в другой со скоростью V1 км/ч. Через t ч в этом же направлении выехал легковой автомобиль со скоростью V2 км/ч. Определить, догонит ли легковой автомобиль грузовой через t1 ч после своего выезда.
7.Подойдя на определенной расстояние к станции, поезд, идущий со скоростью 200 км/ч, стал ее равномерно снижать в минуту на 10% от той, с которой он двигался предыдущую минуту. Через сколько минут он остановится? (V<0,2)
8.Дано натуральное число. Верно ли, что у него нет делителей, кратных 3?
9.Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа.
заранее спасибо
Решение задачи: «Найти длину стороны второго прямоугольника, если длина одной из его сторон равна С»
textual
Листинг программы
Uses CRT; Var i,j:integer; begin for i:=1 to 9 do for j:=0 to 9 do if sqr(i+j)*(i+j)=sqr(j+i*10) then write(i,j); end.
Объяснение кода листинга программы
В данном коде используется вложенный цикл для перебора всех возможных значений i и j от 1 до 9. Внутри цикла проверяется условие, которое предполагает равенство квадратов длины сторон первого и второго прямоугольников. Если условие выполняется, то значения i и j выводятся на экран.