Uses graphABC;
begin;
setpencolor(RGB(132,132,130));
ellipse(200,200,300,300);
floodfill(220,220,RGB(132,132,130));
<span>end.</span>
var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.
Program z;
var n,a,b,s:integer;
begin
s:=0;
for n:=1 to 999 do
begin
a:=n mod 10;
b:=(n div 100) mod 10;
if a+b=7 then s:=s+1;
end;
writeln(s);
end.
Люда - " 4" т.к в классе двоек нет , но сказано , что у Люды не 3 и не 5
Алла- "5" т.к в классе двоек нет , но сказано , что у Аллы не 3 , если у Люды 4 , то у Аллы 5
Катя-"3"