Найти длину стороны второго прямоугольника, если длина одной из его сторон равна С - 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 выводятся на экран.

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы