Регистрация
lehakharitonov
17.06.2020 05:50
Информатика
Есть ответ 👍

Написать программу для нахождения а) нод, б) нок двух натуральных чисел а, b.

213
221
Посмотреть ответы 2

Ответы на вопрос:

Осень25
Осень25
4,6(64 оценок)
Program gt1; var m,n,q,r,t: longint; begin read(m,n); t: =m*n; r: =1; while r< > 0 do begin q: =m div n; r: =m mod n; if (r< > 0)then begin m: =n; n: =r; end; end; t: =t div n; write(n,' ',t); end. t-нокn-получившиеся нод
Фуфик0372
Фуфик0372
4,5(87 оценок)

var a,b: real;

begin

write ('введите катеты прямоугольного треугольника: ');

read(a,b);

writeln ('гипотенуза прямоугольного треугольника равна: ', sqrt(a*a+b*b): 0: 3);

writeln ('площадь прямоугольного треугольника равна: ', a*b*0.5);

end.

Популярно: Информатика