1111111^2 + 100001^2 = 1.24457 * 10^12
Var a,b,c,d:real;
begin
writeln ('Введите длины сторон первого прямоугольника');
read (a,b);
writeln ('Введите длину одной стороны второго прямоугольника');
read (c);
d:=(6*a*b)/c; //Из формулы s2/s1=6 ; c*d/a*b=6
writeln ('Длин другой стороны второго прямоугольника = ',d)
end.
Var
x:real;
Begin
Write('x = '); Readln(x);
if (x > 5) then
Write('y = ', x*x + 1)
else
Write('y = ', 3 - x);
end.
Пример:
x = 4.5
y = -1.5
~~~~~~~
x = 6
y = 37
Если требовалось сделать таблицу истинности, вот. Если нужно что-то другое, то пиши в комментарии, я доделаю.