Ответы
Ответ дал:
0
4.
var a,b,c: integer;
begin
write ('Введите два угла треугольника: ');
readln (a,b);
if a+b >= 180 then writeln ('Треугольник с такими углами не существует')
else
begin
c:=180-a-b;
writeln ('Третий угол равен ',c)
end
end.
6.
var i,n,s:integer;
begin
s:=0;
write ('n = ');
readln (n);
for i:=1 to n do s:=s+i*i;
writeln('Сумма: ',s)
end.
Приложения:
![](https://st.uroker.com/files/2ee/2ee7f4bd7bd482a7cc901f396598f9bf.jpg)
![](https://st.uroker.com/files/775/7752994779b7e45d4845107218e1d2b7.jpg)
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад