var
a:array [1..20] of integer;
i,c,k:integer;
sr:real;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(80)-44;
write (a[i],' ');
end;
writeln;
write ('C = ');readln(c);
for i:=1 to 20 do
if a[i]>c then begin
sr:=sr+a[i];
k:=k+1;
end;
sr:=sr/k;
writeln (sr:0:2);
readln;
end.
Program aliona;
var a,b:integer;
c,p1,p2:real;
begin
writeln('vvedite sirinu =');
readln(a);
writeln('vvedite dlinu=' );
readln(b);
p1:=0;
p2:=0;
c:=b/2;
p1:=(a+b)*2;
p2:=4*c;
writeln('p1=',p1,'p2=',p2);
readln;
<span>end.</span>
Можно проанализировать работу цикла по шагам (берутся при расчете всегда текущие, т.е. последние значения переменных). Цикл с параметром i выполняется 5 раз:
1 шаг. i=1, f=f*i=1*1=1
2 шаг. i=2, f=1*2=2
3 шаг. i=3, f=2*3=6
4 шаг. i=4, f=6*4=24
5 шаг. i=5, f=24*5=120
В результате вычисляется то, что называется факториалом числа (обозначается знаком !), в данном случае 5!
40(10) = 32+8 = 2^5+2^3 = 101000(2)
В 8-разрядной ячейке: 00101000
С++
_________
Пользователь введёт 2 5
программа найдёт 5 и отнимет 5 от 2 получится 3
__
int x,y;
cout<<"->";
cin>>x>>y;
if (x>=y)
{
x-=y;
cout<<x<<endl;
}
if (y>=x)
{
y-=x;
cout<<y<<endl;
}