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

Question

№1

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

№2

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

№3

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

№4

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

№5

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

Answer 1

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.