Var i,p:integer;
begin
i:=11;
p:=1;
while i<=99 do
begin
p:=p*i;
i:=i+2;
end;
writeln(p)
end.
Const n=21;
var q:array[1..n] of integer;
i,s,k:integer;
begin
Randomize;
for i:=1 to n do
begin
q[i]:=random(51)-10;
write(q[i]:4);
end;
writeln;
k:=0; s:=0;
for i:=1 to n do
if q[i]<0 then begin s:=s+q[i]; k:=k+1; end;
writeln('Среднее арифметическое отрицательных элементов = ',s/k);
end.
Пример:
16 -1 -7 5 13 11 -2 -10 36 19 3 34 23 29 12 28 9 39 33 16 -6
Среднее арифметическое отрицательных элементов = -5.2
Program zadacha_1;
var a,b,c:integer;
begin
writeln('введите число');
readln(a);
for b:=1 to a do begin
c:=sqr(b);
writeln(c);
end;
end.
<span>
program zadacha_2;
var a,b,c:integer;
begin
c:=1;
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
for a:=a to b do begin
c:=c*a;
end;
writeln('произведение чисел от ',a,' до ',b,' ==> ',c);
end.
<span>
program zadacha_3;
var a,b,c:integer;
d:real;
begin
c:=0;
writeln('введите число');
readln(a);
for b:=10 to a do begin
c:=c+1;
d:=d+b;
end;
d:=d/c;
writeln('среднее арифметическое ',d);
end.</span></span><span /><span><span><span>
</span></span></span>
ПаскальАВС.нет
var
n:integer;
s:string;
begin
readln(n);
s:=StringOfChar('*',n);
writeln(s);
<span>end.</span>
S = input("Введите Фамилия, Отчество Имя:\n")
s1 = s[0:s.find(",")]+s[s.rfind(" "):len(s)]+s[s.find(" "):s.rfind(" ")]
print(s1)
Пример:
<span>Введите Фамилия, Отчество Имя:
Иванов, Сидорович Прохор
Иванов Прохор Сидорович</span>