Ответы на вопрос:
Program test; var n: integer; begin writeln(' n = '); read(n); writeln(' сотен = ' , n div 100); end;
Var a, b, n, p: integer; // переменные целочисленного типа. begin write('длина: '); readln(a); // задаём длину нашему треугольнику. write('ширина: '); readln(b); // задаём ширину нашему треугольнику. n: =a*b // формула что-бы узнать площадь прямоугольника. write('площадь: ',b); // выводим площадь на экран. p: =2*a+2*b; // формула что-бы узнать периметр треугольника. write('периметр: ',p); // выводим периметр на экран. end.
Популярно: Информатика
-
nikk7282709.01.2021 21:05
-
Karton228809.03.2023 17:14
-
Сельга723.08.2021 16:09
-
Милаха8405.07.2022 13:51
-
kseniafilipovich0917.05.2022 19:12
-
klubnika198517.02.2021 04:45
-
lacosterom02.08.2020 15:15
-
Atax1a104.03.2021 10:40
-
Igrilla1999019.01.2022 23:11
-
НастяМалюга130.05.2023 10:58