Для того чтобы выходить в интернет, каждому компьютеру присваивается так называемый ip-адрес. он состоит из четырех целых чисел в диапазоне от 0 до 255, разделенных точками. в следующих трех строках показаны три правильных ip-адреса: 127.0.0.0 192.168.0.01 255.00.255.255 напишите программу, которая определяет, является ли заданная строка правильным ip-адресом. формат входного файла: на вход программе подается строка длиной не более 15 символов, которая включает цифры и ровно три точки. формат выходного файла: если строка является правильным ip-адресом, необходимо вывести 1, иначе 0. с++

👇

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

Ответ:

achreneti21

07.03.2023

Var
N, i, P, O, Z : Integer;
R : Real;
begin
Write('n = '); ReadLn(N);
P := 0; O := 0; Z := 0;
// для for         // для while       // для repeat
for i := 1 to N do // i := 0;         // i := 0;
                     // while i < N do // repeat
    begin            // begin           //   Inc(i)
                     //   Inc(i);
      Write(i, ' число = '); ReadLn(R);
      case sign(R) of
        +1 : Inc(P);
        -1 : Inc(O);
         0 : Inc(Z);
       end;
    end;             // end;            // until i = N;
WriteLn('Процент положительных чисел: ', P*100/N);
WriteLn('Процент отрицательных чисел: ', O*100/N);
WriteLn('      Процент нулевых чисел: ', Z*100/N);
end.

тут даже больше

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

Ответ:

Helluing

07.03.2023

//PascalABC.NET версия 3.3.5.1636 от 10.03.18
//Если программа не запускается, то обновите версию

const
    handsfree = true;
    nmax = 100;
    random_min = -28;
    random_max = 27;

var
    a: array[1..nmax] of integer;
    i, n, j, count: integer;
    mini, maxi: integer;
    min, max: real;
    temp: real;
    sum, product, harmonic: real;
    k: integer;

begin
    {ввод массива}
    n := nmax;
    if handsfree then
        n := random(nmax - 5) + 5
    else begin
        write('n = ');
        readln(n);
    end;

    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(random_max - random_min) + random_min;
            write(a[i], ' ');
        end
        else
            readln(a[i]);
    end;
    writeln();

    {подсчет суммы и произведения и агригатов и кол-ва}
    sum := 0;
    product := 1;
    for i := 1 to n do
    begin
        sum := sum + a[i];
        if a[i] mod 3 = 0 then {если нужен фильтр}
            product := product * a[i];
    end;
    writeln('1) sum = ', sum);
    writeln('2) product = ', product);

    {подсчет суммы и произведения и агригатов и кол-ва}
    sum := 0;
    count := 0;
    for i := 1 to n do
    begin
        if i mod 2 = 1 then {если нужен фильтр}
        begin
            count := count + 1;
            sum := sum + a[i];
        end;
    end;
    writeln('3) average (selected) = ', sum / count);

    {подсчет суммы и произведения и агригатов и кол-ва}
    sum := 0;
    product := 1;
    count := 0;
    for i := 1 to n do
    begin
        if i mod 2 = 0 then {если нужен фильтр}
            sum := sum + a[i];
        if a[i] < 0 then {если нужен фильтр}
            product := product * a[i];
        if a[i] mod 2 = 1 then {если нужен фильтр}
            count := count + 1;
    end;
    writeln('4) count = ', count);
    writeln('4) sum = ', sum);
    writeln('4) product = ', product);
end.

4,8(24 оценок)

Это интересно:

Компьютеры-и-электроника

07.10.2020

Как переустановить Google Chrome: простой шаг за шагом гайд...

Финансы-и-бизнес

25.01.2020

Как открыть счет в швейцарском банке: необходимые шаги и требования...

Компьютеры-и-электроника

19.04.2023

Как прекратить получение сообщений на Facebook...

Стиль-и-уход-за-собой