<u>На Паскале:</u>
var a,b,c,x: integer;
begin
writeln('Введите первую цифру: ');
readln(a);
writeln('Введите вторую цифру: ');
readln(b);
writeln('Введите третью цифру: ');
readln(c);
x:=a+b+c;
writeln('x = ',x);
end.
writeln - процедура для записи значений.
readln - процедура считывающая значения с клавиатуры.
Папка)))))))))))))))))))))
var
a,n,min:integer;
begin
readln(a);
n:=1;
min:=100;
if (a mod 3 <>0) or (a=0) then
begin
writeln('Net par');
exit;
end
else
begin
n:=a;
repeat
readln(a);
if a mod 3 <> 0 then break;
n:=n*a;
if (n<min) then min:=n;
n:=a;
until (a mod 3 <> 0) or (a=0);
end;
writeln;
if min = 100 then writeln('Net par') else
writeln(Min);
end.
Количество символов опр. так: 2^3=8
Var i,k,p,r,m,n: integer;
<span>begin
</span><span> write('размер клетки k = '); readln(k);
</span><span> write('радиус круга r = '); readln(r);
</span><span> n:=r div k;
</span><span> if ((r mod k)>0) then inc(n);
</span><span> m:=0; p:=n-1;
</span><span> for i:=1 to n-1 do
</span><span> begin
</span><span> if Ceil(sqrt(r*r-k*i*k*i))<=p*k then
</span><span> begin
</span><span> p:=p-1;
</span><span> m:=m+n-i;
</span><span> end;
</span><span> end;
</span><span> m:=4*n*n-4*m;
</span><span> writeln(m);
</span><span>end.
</span>размер клетки k = 1
<span>радиус круга r = 5
</span><span>88
</span>размер клетки k = 3
<span>радиус круга r = 7
</span><span>32
</span>размер клетки k = 4
<span>радиус круга r = 5
</span><span>12
</span>