Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin write('введите 1-прямоугольник, 2-параллелограмм, 3-трапеция: '); var n: =readinteger; case n of 1: begin writeln('прямоугольник'); var (a,b): =readreal2('введите длины сторон: '); writeln('площадь равна ',a*b) end; 2: begin writeln('параллелограмм'); var (a,h): =readreal2('введите длину основания и высоту: '); writeln('площадь равна ',a*h) end; 3: begin writeln('трапеция'); var (a,b,h): =readreal3('введите длины оснований и высоту: '); writeln('площадь равна ',(a+b)/2*h); end; else writeln('введен неверный номер') end end. по поводу " является ли трапеция параллелограммом или ромбом". это некорректный вопрос в информатике. споры о том, является ли трапеция частным случаем параллелограмма или ромба так и не закончены. поскольку копирование из интернет материалов сюда запрещено, а также запрещены ссылки на внешние источники, отсылаю заинтересованных лиц к материалу, который называется "параллелограммная война". это о военном конфликте между и францией, возникший из-за разногласий на научной конференции в геттингенском университете. ну а нам войны не нужны, поэтому если автор вопроса четко сформулирует критерий, по которому можно ответить на заданный им подвопрос, можно будет добавить это в программу.
strelnikov-aa
07.04.2023
Странное ! если число целое и двухзначное меньше 15, то это числа 10, 11, 12, 13 и 14. в восьмеричном представлении они больше десятичного значения на 2, т.е. 10₁₀ = 12₈, 11₁₀ = 13₈, 14₁₀ = 16₈ pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin var n: =readinteger('введите число от 10 до 14: '); writeln('в восьмеричной системе оно записывается как ',n+2) end. пример введите число от 10 до 14: 13 в восьмеричной системе оно записывается как 15
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Каким образом web-страницы объединяются в web-сайты?