Напишите программу в паскале
Найти периметр и площадь прямоугольного треугольника, если даны длины его катетов a и b.
!С числами, вводом данных и выводом!
225
299
Ответы на вопрос:
Var n: longint; i, sum: integer; begin readln(n); sum : = 0; while n > 0 do begin sum : = sum + (n mod 10); n : = n div 10; end; writeln(sum); end.
Популярно: Информатика
-
FlowerBlue1701.01.2022 09:25
-
dotafign905.04.2022 16:54
-
Mari290908.02.2020 11:16
-
Vymnuk22821.06.2021 14:00
-
alenavasina2013.02.2021 04:40
-
машуля555213.11.2021 15:39
-
tata53526826.01.2023 15:10
-
Freewomans04.08.2020 07:28
-
olgaversh25.11.2021 19:58
-
Golovagolovin23.05.2020 01:34