Регистрация
даная7234598
04.09.2022 19:53
Информатика
Есть ответ 👍

Найти 15 первых натуральных чисел, делящихся нацело на 19 и находящихся в интервале, левая граница которого равна 100. можно в виде

168
197
Посмотреть ответы 2

Ответы на вопрос:

neftyanik102
neftyanik102
4,6(59 оценок)

var c, y: integer;

begin

    y: = 100;

    c: = 0;

    repeat

        if y mod 19 = 0 then begin

            writeln(y);

            inc(c);

        end;

        inc(y);

    until c = 15;

end.

shakenovdarhan
shakenovdarhan
4,4(72 оценок)
Var a: array[1..12] of real; s: real; i: byte; begin for i: =1 to 12 do begin a[i]: =random(101); write(a[i], ' '); s: =s+a[i]; end; s: =s/12; writeln(''); write('среднее арифметическое: ', s); end.

Популярно: Информатика