Яна больничном и не знаю как ! и объясните как оформлять ,для меня это ! 1) скорость передачи информации - id810753620201206 от Аліна23456 06.12.2020 12:22

Question

Информатика: Яна больничном и не знаю как ! и объясните как оформлять ,для меня это ! 1) скорость передачи информации 1.200бит/сек. сколько бит передаст данный можем за 14 сек? 2) скорость передачи информации 2.400 бит/сек. за сколько времени данный модем передаст информацию,состоящую из 303000 символов? 3) скорость передачи информации 1.200 бит/сек. объем передаваемой информации 3 страницы .на одной странице содержится 1.800 символов ,на двух других по 3.000 символов .сколько понадобится времени для передачи

Аліна23456 · Accepted Answer

Var
    f: file of integer;
    i, n, x, t, k, max: integer;
    s: integer;

begin
    randomize;
    write('n=');
    readln(n);

    assign(f, 'numbers.dat');
    rewrite(f);

    max := -1;
    for i := 1 to n do
    begin
        x := random(4800) + 20;
        write(f, x);
        write(x, ' ');
        if x > max then max := x;
    end;
    writeln;

    seek(f, 0);
    k := 0;
    while not eof(f) do
    begin
        read(f, x);
        t := x;
        s := 0;
        while t > 0 do
        begin
            s := s + sqr(t mod 10);
            t := t div 10;
        end;
        if x mod s = 0 then k := k + 1;
        if x > max - 50 then write(x, ' ');
    end;
    writeln;

    writeln(k);
end.

MOGZ ответил