Дроби Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод Ограничение по времени: - id2105208120210711 от ibragimabdulaev 11.07.2021 21:56

Question

Информатика: Дроби Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод Ограничение по времени: 1 секунда Ограничение по памяти: 256 мегабайт Алтан учится в пятом классе, и недавно по математике они начали изучать обыкновенные дроби. Для закрепления пройденного материала учитель по математике каждый день задает на дом найти сумму дробей вида: 1 m1 + 1 m2 + . . . + 1 mk . Алтан просит вас разработать программу, которая бы вычисляла сумму таких дробей. Но ответ должен быть представлен в

ibragimabdulaev · Accepted Answer

program simple_num;var n:integer; function simple(num:integer):boolean;var count, i:integer;    key:boolean;begin    count := 0;    i := 1;    repeat        if num mod i = 0 then            inc(count);        inc(i);    until (i num);    if count 2 then        key := false    else key := true;    simple := key;end; begin    writeln( Введите натуральное число больше 1 );    readln(n);    if n 1 then        if simple(n) then            writeln( Число ,n, простое )        else writeln( Число ,n, непростое...

MOGZ ответил