Вложенные циклы. Найти все равновеликие прямоугольные треугольники с заданной площадью

@AlenaRaskalova · Регистрация: 17.04.2012

Студворк — интернет-сервис помощи студентам

Найти все равновеликие прямоугольные треугольники, катеты которых выражены целыми числами a i b,а площадь равняется S(a i b [1,30],а S водица с клавиатуры)
Пожалуйста помогите!

valeriikozlov · 18.04.2012, 05:08

Pascal

var S, i: integer; 
begin 
write('S= ');
read(S);
i:=1;
while i*i<=S*2 do begin
if i*((S*2) div i)=S*2 then
writeln(i, ' ', (S*2)/i);
inc(i);
end;
end.

@AlenaRaskalova 0 / 0 / 0 Регистрация: 17.04.2012 Сообщений: 5
		1
	Вложенные циклы. Найти все равновеликие прямоугольные треугольники с заданной площадью 17.04.2012, 20:37. Показов 1839. Ответов 1 Метки нет (Все метки) Найти все равновеликие прямоугольные треугольники, катеты которых выражены целыми числами a i b,а площадь равняется S(a i b [1,30],а S водица с клавиатуры) Пожалуйста помогите! 0

	18.04.2012, 05:08

Опции темы

Вложенные циклы. Найти все равновеликие прямоугольные треугольники с заданной площадью

Решение