Var
s,i : integer;
begin
s :=0;
for i := 2 to 6 do
s := s + sqr(i);
writeln (s);
end.
Белов Георгий,
Суворов Дмитрий,
Серёгин Евгений,
Лоскутов Юлий,
Серегина Наташа,
Суворова Евгения.
---------------------------------------------
Решение:
У 2-ой девушки имя как у Серегина
Только 2 имени могут быть как мужским, так и женским - Юлий и Евгений
Серегин не может быть Юлием, т.к. играет не в теннис, а в шахматы, значит Серегин - Евгений, а 2-я девушка - Евгения.
Наташа была замужем за Евгением, значит можно предположить, что она носит его фамилию => Наташа - Серегина.
Суворов не Евгений (уже занято), не Юлий, т.к. играет в шахматы, а не в теннис, и не Георгий, т.к. из Москвы, а не из Саратова => Суворов - Дмитрий. => 2-я девушка Евгения - Суворова, т.к. ее фамилия, такая же, как у Дмитрия.
Лоскутов из Ярославля, значит он не может быть Георгием => Лоскутов - Юлий.
Остается одна Фамилия Белов и одно имя Георгий => Белов - Георгий
Попробуйте такое:
uses graphABC;
var
x, y: array [1 .. 100] of integer;
mI, mJ, mK, maxR, R, i, j, k: integer;
begin
randomize;
for i := 1 to 100 do
begin
x[i] := random(600) + 10;
y[i] := random(360) + 10;
circle(x[i], y[i], 2);
end;
maxR := 0;
for i := 1 to 100 do
for j := 2 to 99 do
for k := 3 to 98 do
begin
R := abs((x[i]-x[k])*(y[j]-y[k])-(x[j]-x[k])*(y[i]-y[k])div 2);
if R > maxR then
begin
maxR := R;
if R > mI then mI := i;
if R > mJ then mJ := j;
if R > mK then mK := k;
end;
end;
setpencolor(clred);
line(x[mI], y[mI], x[mJ], y[mJ]);
line(x[mJ], y[mJ], x[mK], y[mK]);
line(x[mK], y[mK], x[mI], y[mI]);
end.
Что то мне подсказывает что это не информатика.... это вообще какой класс
Виды компьютерной памяти 2 внешная и 4 внутренняя