Только нужно решить не через if, a через case1. пользователь вводит неотрицательное однозначное число a. написать программу: вычисляющую в случае ввода 1 - площадь круга с радиусом a, вычисляющую в случае ввода 2 - площадь квадрата со стороной a, вычисляющую в случае ввода 3 - площадь равностороннего треугольника со стороной a, сообщение «нужно ввести число 1, 2, 3» в остальных случаях.
278
354
Ответы на вопрос:
Var a: integer; s: real; begin readln(a); case a of 1: begin s: =pi*a*a; writeln(s); end; 2: begin s: =a*a; writeln(s); end; 3: begin s: =a*a*sqrt(3)/4; writeln(s); end; else writeln('нужно ввести число 1, 2, 3'); end; end.
Популярно: Информатика
-
vladagabriell03.04.2022 04:56
-
RudiSlav23.11.2020 06:11
-
kiryaegorov0307.11.2021 11:39
-
KultchiK30.05.2020 10:19
-
ХошиСимидзу04.09.2022 02:27
-
BigD1316.07.2022 16:40
-
сымбатым26.03.2020 03:38
-
KINDER12356714.02.2020 18:16
-
akame50512.11.2022 05:46
-
рыттп14.10.2022 23:21