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

Код к задаче: «Найти длину стороны второго прямоугольника, если длина одной из его сторон равна С - Pascal ABC»

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.

15   голосов, оценка 4.067 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы