** писать программу Пользователь вводит два числа, а и с. Найти (с точностью до тех...

Question

На писать программу
Пользователь вводит два числа, а и с. Найти (с точностью до тех знаков после запятой) во сколько раз сумма их квадратов больше остатка от деления, а на с.

Comments

язык?

Answer 1

Var a,c:integer;
begin
write('a = '); readln(a);
write('c = '); readln(c);
if a mod c <> 0 then 
 writeln(a*a+c*c/(a mod c):6:3);
end.

Пример:
a = 8
c = 5
72.333