Var mas: array [1..6] of integer;
var i, b, sum: integer;
begin
for i:=1 to 6 do mas[i]:=random(101);
b:=0;
while i<=6 do if mas[i] mod 2<>0 then
begin
b:=i;
i:=7;
end
else inc (i);
sum:=0;
for i:=1 to 6 do if (mas[i] mod 2=0) and (mas[i]<mas[1]) then sum:=sum+mas[i];
writeln (b);
writeln (sum);
<span>end.</span>
1024 симв. - 1/2 кБайт
2048 симв. - 1 кБайт
2048 симв. - 1024 байт
1 симв. - 1/2 байт
1 симв. - 4 бит
2^4 = 16 символов в алфавите
Var a,b,c,d: real;
<span>begin
</span><span> write('числа a,b,c,d через пробел: ');
</span><span> readln(a,b,c,d);
</span><span> writeln('минимум: ',min(a,min(b,min(c,d))));
</span><span> writeln('максимум: ',max(a,max(b,max(c,d))));
</span><span>end.
</span><span>
</span>
N=128
N=2^i
Отсюда следует, что i=7бит
//PascalABC.NET 3.2 сборка 1318
Var
x1,y1,x2,y2,x3,y3,r,count:integer;
begin
read(x1,y1,x2,y2,x3,y3,r);
if sqr(x1)+sqr(y1)=sqr(r) then inc(count);
if sqr(x2)+sqr(y2)=sqr(r) then inc(count);
if sqr(x3)+sqr(y3)=sqr(r) then inc(count);
writeln(count);
end.
Пример ввода:
0 1 1 0 -1 0 1
Пример вывода:
3