Аязык какой ? ) оператор case делает выборку параметров. switch ( < номер месяца > ) {case 1: ответ == январь break; case 2: ответ == февраль break; default: выполнить, если ни один вариант не подошел break; }
larinafashion829
24.03.2022
Freepascal ver 1.0.12 program znanija; var ax, ay, bx, by : integer; c, d, p : real; begin writeln('введите через пробел координаты точки а и нажмите enter'); readln(ax, ay); writeln('введите через пробел координаты точки в и нажмите enter'); readln(bx, by); c: =sqrt(sqr(bx-ax)+ sqr(by-ay)); writeln('площадь квадрата', sqr(c): 10: 2); p: =c*4; writeln('периметр квадрата', p: 10: 2); d: =sqrt(sqr(c)*2); writeln('диагональ квадрата', d: 10: 2); readln end.