Var
i:integer;
begin
for i:=50 downto 1 do
if i mod 2 <> 0 then
write(i,' ');
end.
Var n,i:integer;
p:real;
begin
write('n = ');
readln(n);
p:=1;
for i:=1 to n do p:=p*(1+1/(i*i));
writeln('p = ',p);
end.
Пример:
n = 5
p = 3.06944444444444
uses crt;
var i,count:integer;
a:array[1..15] of integer;
begin
randomize;
count:=0;
writeln('Первый екзамен сдало 15 человек ');
for i:=1 to 15 do
begin
a[i]:=random(5)+1;
if a[i] = 2 then inc(count);
end;
for i:=1 to 15 do writeln('Студент ',i,' написал на ',a[i],' балов '); //не обезательно
writeln('На екзамен допущено ',count,' человек!! ');
readln;
end.
X = int(input('x = '))
for i in range(1,x+1):
if x % i == 0:
print(i,end = ' ')
Пример:
<span>x = 21
1 3 7 21</span>
Nero не является антивирусной программой для компьютера.