найти 5 ошибок
1 var
2 s : integer;
3 procedure pr;
4 var a, b, r :integer;
5 begin
6 write('введите стороны прямоугольника a, b: ');
7 readln(a, b);
8 r := a * b;
9 writeln('Площадь прямоугольника = ', r:0:2)
10 end;
11 procedure tr;
12 var a, b, c, r : real;
13 begin
14 write('введите стороны треугольника a, b, c: ');
15 readln(a, b, c);
16 p := (a + b + c) / 2; {полупериметр}
17 r := sqrt(p * (p - a) * (p - b) * (p - c));
18 writeln('Площадь треугольника = ', r:0:2)
19 end;
20 procedure kr;
21 var c, r : real;
22 begin
23 write('введите радиус круга c: ');
24 readln(c);
25 r := PI * sqr(c);
26 writeln('Площадь круга = ', r:0:2)
27 end;
28 repeat
29 writeln('Площадь какой фигуры нужно вычислить: ');
30 writeln('1 - Прямоугольник');
31 writeln('2 - Треугольник');
32 writeln('3 - Круг');
33 writeln('0 - Выход');
34 readln(s);
35 case s
36 1 : pr;
37 2 : tr;
38 3 : kr
39 else if s <> 0 then writeln('некорректный ввод')
40 until s = 0
41 end.

124

153

Посмотреть ответы 2

Ответы на вопрос:

Даша1000000000000p

Информатика

4,8(32 оценок)

1. Между строчками 27 и 28 вставить строчку с "begin".

2. Между строчками 39 и 40 вставить строчку с "end;".

3. В строке 35 добавить в конец " of".

4. В строке 12 после "r" добавить ", p".

5. В строке 4 заменить "integer" на "real".

Изменения:

qmess10

Информатика

4,4(46 оценок)

25+27 узнали сколько человек ходит на языки посчитав два раза кто ходит и туда и туда 25+27-18 посчитали сколько человек в классе

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.