вот в 6 программа выводит все числа кроме 1 и самого числа #1
x=int(input())
s=0
while x!=0:
x=int(input())
s+=1
print(s)
#2
x=int(input())
s=0
while x!=0:
x=int(input())
if x==3:
s+=1
print(s)
#3
x=1
s=-1
s1=0
while x!=0:
x=int(input())
if (x%2)==0:
s+=1
else:
s1+=1
print('четные-',s,'\n','нечетные-',s1)
#4
x=1
s=-1
s1=0
while x!=0:
x=int(input())
if (x%2)==0:
s+=x
else:
s1+=x
print('четные sum-',s,'\n','sum нечетные-',s1)
#5
s=0
x=int(input())
while s<=x:
y=int(input())
s+=y
if s<=x:
break
#6
x=int(input())
t=x-1
while t>1:
if (x%t)==0:
print(x/t)
t-=1
else:
t-=1
var
m : array [1..10] of Integer;
i : Integer;
begin
Writeln('Введите массив: ');
for i := 1 to 10 do
begin
Write('m[', i, '] = '); Readln(m[i]);
end;
Writeln('Отрицательные: ');
for i := 1 to 10 do
if m[i] < 0 then Writeln(m[i]);
end.
Пограммирование
енавориммаргоп
пграммироване
еавориммаргп
праммировае
евориммарп
паммирове
еориммап
пммирое
ериммп
пмире
еимп
пие
еп
п
Ответ: П
Program chik;
var a,b:string;
i,l:integer;
begin
readln(a);
b:='';
l:=length(a);
for i:=1 to l do
begin
b:=b+a[i]+' ';
end;
writeln(b);
end.
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
if s.MatchValue('[0-7]*')=s then Writeln('YES')
else Writeln('NO')
end.