1.
Var
c:integer;
Begin
Write('Введите с '); Readln(c);
if (c>0) or ((c mod 5) = 0) then
write('c^3 = ',c*c*c) else
write('(c-2)^2 = ',sqr(c-2));
End.
2.
Var
c:integer;
Begin
Write('Введите угол с '); Readln(c);
write('Угол с - ');
if (c>0) and (c<90) then write('острый') else write('не острый');
End.
Что ?тмомтспичвррч?!!!!!!!!!!!!!!!!!!!!!!!!!!!!
D:\SCHOOL\INFO потому как <span>7_CLASS\ и Список_литературы.txt. добавили значит их отбрасываем </span>
128(10) = 10000<span>000(2)
16(10) = </span>10000<span>(2)
32(10) = </span>10<span>0000(2)
14(10) = 1110(2)
в скобках указана система счисления</span>