Объяснение:
Код:
program storinka29zadacha7;
uses crt;
const g=9.80665;
var e,m,v,p,h:real;
begin
writeln('Vvedite m');
readln(m);
writeln('Vvedite v');
readln(v);
writeln('Vvedite h');
readln(h);
e:=m*sqr(v)*8/2;
p:=m*g*h;
writeln('E=',e);
writeln('P=',p);
end.
Схема на картинке
ОТВЕТ:
Var a, d, n, i, otv: integer;
begin
read(a,d,n); <em>- ввод всех значений</em>
otv:=a; <em> - в переменную где будет храниться </em>
for i:=1 to n do <em>ответ записываем начальный взнос</em>
begin
a:=a+d; <em>- увеличиваем в цикле взнос</em>
otv:= otv + (a); <em> - добовляем взнос к нашему ответу</em>
end;
writeln(otv); <em> - выводим ответ</em>
end.
1. a:= 16. b:=12-16/4 = 8 a:=16+8*3 Отсюда следует а = 40
2. a:= -3. a:= -(-3)-(-3) = 6. b:=a+2 = 8 a:= -b+a*b = -8 + (-3)*8 = -8-24= -32