Var a,b,c,d,e,f:real;
begin
write ('Введите результаты 1 опроса: ');
readln (a);
write ('Введите результаты 2 опроса: ');
readln (b);
write ('Введите результаты 3 опроса: ');
readln (c);
write ('Введите результаты 4 опроса: ');
readln (d);
write ('Введите результаты 5 опроса: ');
readln (e);
f:=(a+b+c+d+e)/5;
writeln ('Средний балл = ',f);
end.
Uses crt;
var i:integer;
s:real;begin
s:=1;write(s);
for i:=1 to 50 do begin
i:=i+1;
s:=s*i;write('*',i);
end;
write (' = ',s);
<span>end.
P.s. Программа написана на языке PascalABC, странный ответ она выдает потому, что в данном языке есть ограничения, и число, которое получается, выходит за диапазон данного значения.</span>
Составь алгоритм для Путешественника
Цель: изучить флэш-память.
Начальное положение: Путешественник — в корне дерева.
Начало
Конец
С
Составь алгоритм для Путешественника.
Цель: изучить все диски.
Начальное положение: Путешественник — в вершине «Флэш-память».
Про синтаксис сказать ничего не могу, вроде правильно
объем вычислен верно, а при вычислении площади ты вичислил только боковую площадь цилиндра, и забыл про круглые торцы, их тоже надо прибавить, т.е. S:=2*pi*r*h+2*pi*r*r
1) п2 - Е (конечный), п3 - Г, п4 - К, п6 - В (начальный), п7 - Д. Точки А и Б нам не интересны. От В есть пути до Д, К и Г. От В до Д - 20, от Д до Е - 15, итого 35. От В до К - 25, от К до Е 5, итого 30. От В до Г - 10, от Г до К - 10, от К до Е - 5, итого 25. Ответ: путь В - Г - К - Е, 25.
2) Нужно определить родителей и детей по их номерам в столбце ID, затем узнать их разницу в возрасте и сверить с условием. Под условие попадает только человек с ID 2045. Ответ 1.
3) Нужно сложить количество стрелок, ведущих через пункт Ж к пункту Л не через пункт З. Их количество 15. Ответ 15.
