Написать программу для нахождения а) нод, б) нок двух натуральных чисел а, b.
213
221
Ответы на вопрос:
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-получившиеся нод
var a,b: real;
begin
write ('введите катеты прямоугольного треугольника: ');
read(a,b);
writeln ('гипотенуза прямоугольного треугольника равна: ', sqrt(a*a+b*b): 0: 3);
writeln ('площадь прямоугольного треугольника равна: ', a*b*0.5);
end.
Популярно: Информатика
-
Jdhcb11.08.2021 00:49
-
smelinkova19.02.2023 12:40
-
milayakisa103.01.2023 10:12
-
olegiwanow27.12.2021 16:16
-
gukalovaekateri26.05.2023 17:15
-
BlasterGloGang06.11.2021 12:53
-
Sn1KeRS229.02.2020 14:28
-
mushicz01.10.2022 00:00
-
amina34719.06.2021 11:46
-
9Mesut822.05.2021 07:36