Вопрос пользователя:
№1
Вывести на экран квадраты чисел от 1 до n.
№2
Вывести на экран таблицу умножения от 1 до 10 числа n.
№3
Вычислить значение факториала n!
№4
В диапазоне от 1 до n вывести все четные числа на экран.
№5
Найти количество чисел, которые делятся на 3 и 5, из диапазона от 1 до n.
Илюха отвечает:
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.