1. Для общения , разговора . 2 . Для получения информации ... 8. Создать его на рабочем столе , включить
6)
Значение переменной а равно 6
7)
<span>Значение S
равно 73</span><span>
</span>
1.
var i,n:integer; s:real;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s);
end.
Пример:
n = 5
s = 2.28333333333333
2.
var x,a,s:real; i:integer;
begin
write('x = '); readln(x);
a:=x; s:=x; i:=1;
while i<11 do
begin
i:=i+2;
a:=x*x*a;
s:=a/i;
end;
writeln('s = ',s);
end.
Результат:
x = 3
s = 16104.2727272727
условий не написано, поэтому просто решим.
а) 1012 + 112 = 1124
б) 10012 - 112 = 9900
в) 112 • 102= 11424
program raf105;
var
a,b,c,k: real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);
if a*b*c <> 0 then k:= sqrt(a*b*c)
else k:= (a+b+c) / 2;
writeln('k = ',k);
end.
<h3>PascalABC</h3>