Var p :integer; a, s :real;
begin
readln(p); a:= p/4; s:= sqr(a); writeln('Сторона квадрата равна ',a); writeln('Площадь квадрата равна ',s);
<span>end.</span>
В borland pascal типа данных, который может вместить такое число, нету. может создать массив, хранить в нем разряды числа, а при выводе соединять в одно число.
либо перейди на free pascal. там int64 тебе идеально подойдет.
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var x:=-3.14;
while x<=3.14 do begin
Writeln(x:5:2,' ',sqr(sin(x))+sqr(cos(x)));
x:=x+0.2
end
end.
Результат
-3.14 1
-2.94 1
-2.74 1
-2.54 1
-2.34 1
-2.14 1
-1.94 1
-1.74 1
-1.54 1
-1.34 1
-1.14 1
-0.94 1
-0.74 1
-0.54 1
-0.34 1
-0.14 1
0.06 1
0.26 1
0.46 1
0.66 1
0.86 1
1.06 1
1.26 1
1.46 1
1.66 1
1.86 1
2.06 1
2.26 1
2.46 1
2.66 1
2.86 1
3.06 1
Немного не понятно с условиями последней задачи. Написал как понял. См. приложения
6.
a=10
b=30
a = (30 mod 7) div 2 = 2 div 2 = 1
Ответ: a = 1
7.
в)
8.
y = 5+5*1+5*2+5*3 = 5+5+10+15 = 35
Ответ: 35
9.
143 = 128+8+4+2+1 = 10001111(2)