Даны два ненулевых числа. Найти частное их квадратов
Даны два ненулевых числа. Найти частное их квадратов
Гость
Ответ(ы) на вопрос:
ГостьProgram Zadacha;
Var
a, b: integer;
Begin
Write('введите 2 числа:');
ReadLn(a, b);
WriteLn('частное квадратов = ', (a*a)/(b*b));
ReadLn;
End.
Не нашли ответ?
Похожие вопросы