Var i, c, n: integer;
begin
read(n);
c:=1;
for i:=1 to n do
c:=c*2;
writeln(c);
<span>end.</span>
Var i:Integer;s:real;
A:array[1..130]of integer;
Begin
S:=0;
For i:=1 to 130 do begin
A[i]:=random(100);
S:=s+A[i];
End;
S:=s/130;
Write(s);
End.
54:6=9
54:2=27 (52:27=2)
54:9=6 (54:6=9)
54-37=17 ( я вот даже и не знаю, на что 4 делить, чтоб 17 вышло)
Иволга - и (картинка вола) га.
Волна - (снова картинка вола) на
Ворона - (картинка вора)она
ива - буква И внутри буквы А
Наташа - Ша, под ним Та (на Та находится Ша)
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b,h:real;
Write('Введите начальное значение, конечное и шаг: ');
Read(a,b,h);
var n:=Trunc((b-a)/h)+1;
for var i:=1 to n do begin
var x:=a+(i-1)*h;
var y:=(x>0) and (x<=2)?x*x+Cos(x):4/x;
Writeln(x:0:3,' ',y:0:5)
end
end.
<u>Пример</u>
Введите начальное значение, конечное и шаг: -2.5 1.6 0.2
-2.500 -1.60000
-2.300 -1.73913
-2.100 -1.90476
-1.900 -2.10526
-1.700 -2.35294
-1.500 -2.66667
-1.300 -3.07692
-1.100 -3.63636
-0.900 -4.44444
-0.700 -5.71429
-0.500 -8.00000
-0.300 -13.33333
-0.100 -40.00000
0.100 1.00500
0.300 1.04534
0.500 1.12758
0.700 1.25484
0.900 1.43161
1.100 1.66360
1.300 1.95750
1.500 2.32074