var
a,b:real;
begin
writeln("Введите рост бамбука за сутки");
readln(a);
b:=a/1440;
writeln(" За минуту бамбук вырастает на ", b:0:3," см");
end.
P.s. Мы делим а на 1440, потому что сначала мы делим (если ввели 86) 86 на 24 и получаем на сколько он вырастает за час, а потому делим на 60 и получаем на сколько вырастает за минуту, значит 60*24=1440, все остальное должно быть понятно
uses crt;
var ch,i,n,count:integer;
begin
n:=0;
count:=0;
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
while ((ch<>0) and ( n <1001)) do
begin
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
inc(n);
end;
writeln(count);
readln;
end.
Var A,k:integer;
Begin
k:=0;
Read(A);
While A <> 0 do
Begin
Read(A);
k:=k+1;
End;
Write(k)
<span>End. </span>
Const n=20;
type omas=array[1..n] of integer;
Procedure Del (var z:omas; k:byte);
var i:byte;
begin
for i:=k to n-1 do z[i]:=z[i+1];
z[n]:=0;
end;
var a:omas; i,b:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i]:4);
end;
writeln;
b:=6;
i:=1;
while (i<=n)and(a[i]<>b) do i:=i+1;
if i<=n then
begin
Del(a,i);
writeln('Размерность массива = ',n-1);
for i:=1 to n-1 do write(a[i]:4);
writeln;
end else writeln('Массив не изменился');
end.
Пример:
12 13 6 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18
Размерность массива = 19
12 13 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18
64.000.000 вроде так, хотя могу и ошибаться