BRENI
Опубликовано 7 лет назад по предмету Информатика от BRENI


№1

Вывести на экран квадраты чисел от 1 до n.

№2

Вывести на экран таблицу умножения от 1 до 10 числа n.

№3

Вычислить значение факториала n!

№4

В диапазоне от 1 до n вывести все четные числа на экран.

№5

Найти количество чисел, которые делятся на 3 и 5, из диапазона от 1 до n.

  1. Ответ
    Ответ дан sinbad7

    1)

    var

    i,n:integer;

    begin

    readln(n);

    for i:=1 to n do writeln(i*i);

    end.

    2)

    var

    i,n:integer;

    begin

    readln(n);

    for i:=1 to 10 do writeln(i:2,'*',n,'=',i*n:3);

    end.

    3)

    var i,n: integer; p: real;

    begin readln(n); p := 1; for i := 1 to n do p := p * i; writeln(p:15:0);end.

    4)

    var

    i,n:integer;

    begin

    readln(n);

    for i:=1 to n do if (i mod 2=0) then writeln(i);

    end.

    5)

    var

    i,n,k:integer;

    begin

    readln(n);

    k:=0;

    for i:=1 to n do if (i mod 15=0) then k:=k+1;

    writeln(k);

    end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц