Var
n, p, i: integer;
begin
readln(n);
i:=1;
p:=3;
while true do
if i<=n then
begin
i:=i+p;
p:=p+2;
end
else
begin
write(i);
exit;
end;
<span>end.</span>
var a:array [1..10] of integer;
s,i,c,b:integer;
Begin
read(c,b,n);
randomize;
for i := 1 to n do
a[i]:= random(b) -c+1;
for i:= 1 to n do
if i mod 2 = 0 then s:=s+1;
writeln(s);
End.
Чудик какой-то ) даже не знаю что это? или кто это ?
Программирование необходимо для реализации алгоритмов на машине, для ускорения или автоматизации работы. Пример: создания калькулятора, с помощью него скорость счёта возрастает во много раз.