var
factorial3, factorial2, factorial1 : real;
B, Y, X, i, j, k:byte;
C:real;
begin
write('X = '); readln(X);
write('Y = '); readln(Y);
factorial1 := 1;
factorial2 := 1;
factorial3 := 1;
for i:=2 to x do
begin
factorial1 := factorial1 * i;
end;
for j:=2 to y do
begin
factorial2 := factorial2 * j;
end;
for k:=2 to (x-y) do
begin
factorial3 := factorial3 * k;
end;
C:= ( factorial3 / factorial2 )*factorial1 ;
writeln('C = ',C );
readln;
end.
Вот на Pascal;Надеюсь ты все поймешь
program massiv;
var i,n,max,sr,min,pozm,pozx:longint;
a:array[1..10]of longint;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
begin
if a[i]>max then begin max:=a[i]; pozm:=i; end;
if a[i]<min then begin max:=a[i]; pozx:=i; end;
end;
for i:= pozx+1 to pozm-1 do
sr:=sr+a[i];
sr:=sr div (pozm-pozx);
writeln(sr);
end.
#include <iostream>
using namespace std;
int main()
{
int n;
cin >> n;
int a[n];
cin >> a[0] >> a[1];
for (int i = 2; i < n; i++)
a[i] = 10 - a[i-1] - a[i-2];
for (int i = 0; i < n; i++)
cout << a[i];
return 0;
}
Зрение
вкус
обоняние
осязание