ПаскальАВС.нет
var
f:text;
s,t:string;
i,n:integer;
y:boolean; //признак наличия слова NO
function wr(c:char):boolean; //определяет, буква или нет
begin
if (c in ['A'..'Z']) or (c in ['a'..'z']) then result:=true else result:=false
end;
begin
assign(f,'d:/file.txt');
reset(f);
repeat
readln(f,t);
s:=t;
y:=false;
i:=pos('NO',s);
while i>0 do
begin
n:=length(s);
if n=2 then
y:=true
else
begin
if i=1 then
begin
if wr(s[i+2])=false then y:=true;
end
else
if wr(s[i-1])=false then y:=true;
end;
delete(s,1,i+2);
i:=pos('NO',s);
end;
if y=false then writeln(t);
until f.Eof;
close(f)
end.
Не могу знать сколькими числами нужно заполнять массив,поэтому взял 10.
1)import randomA=[]s=10chet=0nechet=0while s!=0: i=random.randint(20,100) A.append(i) s-=1
for j in A: if j%2==0: chet=chet+1 else: nechet=nechet+1
print(chet,nechet)
за 128 секунд вася пробегает 1024м.и это на самом деле 65536см
тогда за одну секунду он пробегает
65536/128=512 см
100 метров=10000см
10000/512=19,5(раз по 512 см в стометровке.)
тогда В реальности вася пробегает 100 метров за 19,5 секунд
дай мне лучшее решение)
Const
N = 10;
Var
X:array[1..N] of integer;
i,k:integer;
S:real;
Begin
k:=0;
S:=0;
WriteLn('Введите массив A[',N,']:');
For i:= 1 to N do
Begin
Read(X[i]);
if X[i]>1 then k:=k+1
else if X[i]<0 then S:=S+X[i];
End;
WriteLn('k = ',k);
WriteLn('S = ',S);
End.