Назовите общие имена объектов а) машина б)берёза в)москва г)байкал д)пушкин е)операционная система ж)клавиатурный - id760739320230531 от katyabobkova 31.05.2023 07:01

Question

Информатика: Назовите общие имена объектов а) машина б)берёза в)москва г)байкал д)пушкин е)операционная система ж)клавиатурный тренажёр з)windowsxp

katyabobkova · Accepted Answer

Var        str: string;        i, count: integer;begin        write( Your string: );        readln(str);        i := length(str);        if i 0 then begin                count := 1;                while i 0 do begin                        if str[i] = then                                count := count + 1;                        i := i - 1;                end;        end        else                count := 0;                delete(str,3,1);        writeln( Number of words: , count);         writeln(str);readln;end....

Назовите общие имена объектов а) машина б)берёза в)москва г)байкал д)пушкин е)операционная система ж)клавиатурный тренажёр з)windowsxp

MOGZ ответил