Только нужно решить не через if, a через case1. пользователь - вопрос №24981461 от ilinasmirnova5 07.04.2023 13:33

Question

Информатика: Только нужно решить не через if, a через case1. пользователь вводит неотрицательное однозначное число a. написать программу: вычисляющую в случае ввода 1 - площадь круга с радиусом a, вычисляющую в случае ввода 2 - площадь квадрата со стороной a, вычисляющую в случае ввода 3 - площадь равностороннего треугольника со стороной a, сообщение «нужно ввести число 1, 2, 3» в остальных случаях.

ilinasmirnova5 · Answer

Var a:integer;s:real;beginreadln(a);case a of1: 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....