Var
i,m,n,s:integer;
function fact(a:integer):integer;
var l:integer;
begin
l:=1;
for i:=2 to a do
l:=l*i;
fact:=l;
end;
begin
read(m);
readln(n);
s:=0;
for i:=m to n do
if i mod 2=0
then s:=fact(i)+s;
writeln('Suma: ',s);
end.
Ответ будет 1, т.к 0 v 1 или 1 v 1 будет всегда 1.
using System;
using System.Linq;
namespace Interesting {
class Program {
static void Main(params int[] a) {
int n = 0;
foreach (int i in a) {
n += (Math.Abs(i - a.Average()) / 100 <= 0.07) ? 1 : 0;
}
Console.WriteLine(n);
}
}
}
var
x: array of string;
y: string;
begin
readln(y);
x := y.Split(' ');
y := x[0];
foreach w: string in x do
if (y.Length <= w.Length) then
y := w;
writeln(y);
<span>end.</span>
1600*4 1200*4 вот дальше сам.................