Var age:integer;
begin
readln(age);
if ((age mod 100 >= 10) and (age mod 100 <= 19)) then writeln(age, ' лет')
else if (age mod 10 = 1) then writeln(age, ' год')
else if ((age mod 10 >= 2) and (age mod 10 <= 4)) then writeln(age, ' года')
else writeln(age, ' лет');
<span>end.</span>
Int used[1000], n, arr[1000];
int main()
{
scanf(n);
for (int i = 1; i <= n; i++)
scanf(arr[i]);
for (int i = 1; i <= n; i++)
{
if (!used[arr[i]]]
{
ans+=1;
used[arr[i]] = 1;
}
}
printf(ans);
}
Program mass;
Uses Crt;
Var
a: array [1..10] of integer;
i,c,b: byte ;
Begin
ClrScr;
For i :=1 to 10 do
begin
a[i]:= random (10);
writeln(a[i]);
end;
writeln;
b:=a[1];
c:=a[10];
a[1]:=c;
a[10]:=b;
For i :=1 to 10 do
writeln(a[i]);
end.