var
a, b, c, d, z : integer;
begin
writeln('введите A B C D');
read(a);
read(b);
read(c);
read(d);
z := max(a, max(b+c, d+1));
writeln('z=', z);
end.
Var
a, b,p,s,r,h: real;
begin
readln(p);
a:=p/3;
h:=sqrt(sqr(a)-sqr(a/2));
s:=a*h/2;
r:=a/3*sqrt(3);
writeln('высота:', h);
writeln('площадь:', s);
writeln('Длина описанной дуги:',2*pi*r);
end.
Тестовое решение:
15
высота:4.33
площадь:10.82
Длина описанной дуги:18.137
Если бы тетрадь был с мной там у меня есть
№5:
A1 = 1; B1 = 3; C1 = 5; D1 = 7
A2 = 5+1=6 ; B2 = 3/3+1 = 2; C2 = 7-5 = 2;
Для того чтобы найти D2, рассмотрим диаграмму, заметим, что:
Есть три одинаковые части, которые в сумме равны одной большой, из имеющихся данных выходит что мы имеем "большую" часть, равную 6
и две "малых", равные 2, тогда:
D2 = 6 - 2 - 2 = 2
Теперь подберем формулу которая будет иметь это значение.
Ответ: 3
№6:
Благодаря условию Фано, мы знаем, что любая закодированная запись должна быть раскодирована единственным вариантом.
Применяя данный в задании алфавит, выясняем, что закодированная запись это последовательность:
АЕАЛД
Получается у нас имеется 5 букв в последовательности.
Ответ: 4
Uses crt;
var n,s:integer;
begin
read(n);
s:=0;
while n<>0 do
begin
s:=s+n;
read(n);
end;
writeln(s);
<span>end.
Программа считывает введённые элементы, пока не введён 0, и выводит их сумму.</span>