Элементы a, b, c
Если a>b, то (если а>c, то a=max, иначе c=max), иначе (если b>c, то b=max, иначе c=max)
<h3>// PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal('x=');
var n := ReadInteger('n=');
var (k, p, q, s) := (x * x, 1.0, 1.0, 0.0);
for var i := 1 to n do
begin
p *= k;
q *= 2 * i * (2 * i - 1);
s += p / q
end;
Println('Сумма =', s)
end.
Попрыгаем?
ВПРАВО-ВЛЕВО - в точке 1 (теперь кузнечик начинает прыгать из точки 1)
ВПРАВО-ВЛЕВО - в точке 2 (прыгаем из точки 2 и т. д.)
ВПРАВО-ВЛЕВО - в точке 3
ВЛЕВО-ВПРАВО - в точке 4
ВЛЕВО-ВПРАВО - точке 5
Напрыгались?
Информационное общество<span> — общество, в котором большинство работающих занято производством, хранением, переработкой и реализацией информации</span><span>, особенно высшей её формы — знаний</span><span>. Для этой стадии развития общества и экономики характерно:</span>
1) Var i:Integer;
A:array[1..10]of integer;
Begin
Write('Введите пять цифр') ;
For i:=1 to 5 do begin
Read(a[i]) ;end;
Write('Кратные двум') ;
For i:=1 to 5 do begin
If a[i] mod 2 =0 then write(' ', a[i]) ;
End;
Write('кратные четырем') ;
For i:=1 to 5 do begin
If a[i] mod 4 =0 then write(' ', a[i]) ;
End;
End.
2)Var a, b, k, i:integer ;
Begin
Write(' a=') ;read(a) ;
Write(' b=') ;read(b) ;
If (a>0)and(b>0) then k:=0;
If (a>0)and(b<0) then k:=abs(b) ;
If (a<0)and(b>0) then k:=abs(a) ;
If (a<0)and(b<0) then k:=abs(a-b) ;
Write('колво отрицательных чисел ', k) ;
End.
