Дано целое число а. если значение а> 1, то необходимо увеличить его на единицу, иначе уменьшить на 1. написать программу для решения этой . программа должна иметь дружественный интерфейс.

👇

Увидеть ответ

Ответ:

Yanis2286

19.08.2020

Program chisloA;
Var a:longint;
Begin
readln(a);
If a>0 then a:=a+1
else a:=a-1;
writeln(a);
End.

4,7(99 оценок)

Открыть все ответы

Ответ:

Vvyq

19.08.2020

$\displaystyle A_k= \frac{k+1}{(2k)^2}, \quad k=1,2, ...,\,17
 \\ \\ A_k= \frac{k+2}{4(k+1)^2}, \quad k=0,1, ...\,, 16$

// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!

№1 Обычный вариант

begin
var s:=SeqGen(17,k->(k+2)/(4*Sqr(k+1)));
Writeln('Сумма четных членов ',s.Where((x,i)->i.IsOdd).Sum);
Writeln('Сумма нечетных членов ',s.Where((x,i)->i.IsEven).Sum);
end.

Результат
Сумма четных членов 0.43519602111678
Сумма нечетных членов 0.821643794807771

№2. Вариант "для шибко умных" (с классом для простых дробей)

type
fraction=class
public
numerator:BigInteger;
denominator:BigInteger;

class function GCD(a,b:BigInteger):BigInteger;
    begin
    while b<>0 do (a,b):=(b,a mod b);
    Result:=a
    end;

constructor Create(num:BigInteger:=0; denom:BigInteger:=1);
    begin
    var n:=GCD(num,denom);
    numerator:=num div n;
    denominator:=denom div n
    end;

class function operator +(a,b:fraction):fraction;
    begin
    var n:=GCD(a.denominator,b.denominator);
    Result:=new fraction(a.numerator*(b.denominator div n)+
        b.numerator*(a.denominator div n),a.denominator div n*b.denominator);
    end;

class procedure operator +=(var R:fraction; a:fraction);
    begin
    R:=R+a;
    end;

end;

function Frc(a,b:BigInteger):fraction;
begin
    Result:=new fraction(a,b);
end;

function Sumf(Self:sequence of fraction):fraction; extensionmethod;
begin
    Result:=new fraction;
    foreach var fr in Self do Result+=fr;
end;

function ToReal(Self:BigInteger):(real,integer); extensionmethod;
begin
    var s:=Self.ToString;
    var r:real;
    if Real.TryParse(s,r) then Result:=(r,0)
    else Result:=(s.Left(16).ToReal,s.Length-16)
end;

function ToReal(Self:fraction):real; extensionmethod;
begin
    var a:=Self.numerator.ToReal;
    var b:=Self.denominator.ToReal;
    Result:=a[0]/b[0]*Power(10,a[1]-b[1])
end;

function Print(Self:fraction; s:string:=' '):fraction; extensionmethod;
begin
    Result:=Self;
    if Self.denominator=1 then Write(Self.numerator,s)
    else Write(Self.numerator,'/',Self.denominator,s)
end;

begin
var f:=Range(2,17,2).Select(k->frc(k+1,Sqr(2*k))).Sumf;
Write('Сумма четных членов '); f.Print; Writeln('= ',f.ToReal);
f:=Range(1,17,2).Select(k->frc(k+1,Sqr(2*k))).Sumf;
Write('Сумма нечетных членов '); f.Print; Writeln('= ',f.ToReal);

Результат
Сумма четных членов 4913189/11289600 = 0.43519602111678
Сумма нечетных членов 192723465457/234558414090 = 0.82164379480777

4,6(88 оценок)

Ответ:

ncrfeed

19.08.2020

Sub maxZn()

'заполнение массива
Dim mas(20)
S = ""
Randomize
For i = 1 To 20
mas(i) = Round(Rnd(100) * 100)
S = S + Str(mas(i)) + ","
Next i

'поиск максимального числа и количества его повторений
qty = 1
max = mas(1) 'предполагаем, что максимальное число в первом элементе массива

For i = 2 To 20

If mas(i) = max Then
qty = qty + 1
End If

If mas(i) > max Then
max = mas(i)
qty = 1
End If
Next i
MsgBox "последовательность чисел " + S
MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty)
End Sub

Sub test()
Call maxZnEnd
Sub
Дана последовательность чисел. выяснить, сколько раз в ней встречается наибольшее число.(basic)