program noname;
uses crt;
var
a:array[1..100] of integer;
i,n,k:byte;
begin
clrscr;
for i:=1 to 20 do begin
randomize;
a[i]:=random(100)-50;;
write(a[i],' ');
if (a[i] mod 2=0) and (a[i]<>0) then k:=i;
end;
n:=0;
for i:=1 to k do
if a[i]<0 then n:=n+1;
writeln;
writeln(k,'-номер последнего четного');
writeln(n,'-число отрицательных элементов до ', a[k])
end.
<span>Если "родителей должно быть не менее одной трети" (т.е. больше или равно), то в первом примере (где n=27, k=7) ответ должен быть 2, а не 3. 7+2=9 - это как раз 1/3 от 27. </span>
var n,k,m:integer;
begin
writeln;
readln(n);
readln(k);
m:=(n-1) div 3+1;
if m-k>0 then writeln(m-k) else writeln(0);
end.
Пример:
27
7
2
1) 1.25Мбит/с равен 8*10⁶ (8000000) Бит/с
2) Символов в кавычках 22, значит 22*16=352
Program sopr;
var R,L,p,S: real;
begin
write('p='); readln(p);
<span> write('S='); readln(S);
</span><span> write('L='); readln(L);
</span> R:=p*L/S;
write('удельное сопротивление равно ',R)
end.
Картинка длжна быть в папке с программой и быть в формате BMP
uses graphabc;
var b: Picture;
begin
b := Picture.Create('banner.bmp');
b.Load(n);
b.Draw(200, 200);
end.