Даны два ненулевых числа. Найти частное их квадратов

Program Zadacha;
Var
   a, b: integer;
Begin
   Write(введите 2 числа:);
   ReadLn(a, b);

   WriteLn(частное квадратов = , (a*a)/(b*b));

   ReadLn;
End.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!