Решение в прикрепленном файле.
Var
A:integer;
S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
Begin
S:=S+A;
A:=A-1
End;
WriteLn('S = ',S);
End.
1.Найти разность показаний счетчика на конец месяца и на начало месяца.
2.Умножить на цену одного Квт/часа
Ответ: 3
Из таблицы:
1) компьютер E соединён только с одним компьютером => рисунки 1 и 2 не подходят
2) компьютер E соединён только с одним компьютером и этот компьютер B => рисунок 4 не подходит
3) проверяем остальные соединения => рисунок 3 точно нужный
1)
var
a,b,c:real;
begin
readln(a,b);
c:=180-a-b;
if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')
else
if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')
else writeln('остроугольный');
end.
2)
var
v:real;
begin
readln(v);
if v<7.8 then writeln ('ракета упадет на Землю');
if v=7.8 then writeln ('ракета станет спутником Земли');
if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы');
if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы');
end.