a = [ваш список]
print('длинна: '+str(len(a)))
i = 0
for n in a:
if n//13:
i += 1
print('кратных 13: '+str(i))
i = 0
for n in a:
if n>= 180 and n <= 200:
i += 1
print('количество от 180 до 200: '+str(i))
sum = 0
for n in a:
if n//5:
sum+=n
print('сумма кратных 5: '+str(sum))
print('суима всех элементов: '+str(sum(a)))
#Код на Python
#На месте пробелов нужно поставить tab, из-за этого может не работать
#Альтернативный вид, где [tab] заменить на клавиатурный таб
a = [ваш список]
print('длинна: '+str(len(a)))
i = 0
for n in a:
[tab]if n//13:
[tab][tab]i += 1
print('кратных 13: '+str(i))
i = 0
for n in a:
[tab]if n>= 180 and n <= 200:
[tab][tab]i += 1
print('количество от 180 до 200: '+str(i))
sum = 0
for n in a:
[tab]if n//5:
[tab][tab]sum+=n
print('сумма кратных 5: '+str(sum))
print('суима всех элементов: '+str(sum(a)))
Ответ:
var i,n,m,s,sa,sb: integer;
begin
write('n = ');
readln (n);
write('m = ');
readln (m);
for i:=n to m do
begin
s:=s+i;
if i mod 2 = 0 then sa:=sa+i else sb:=sb+i
end;
write('s = ',s,' sa = ',sa,' sb = ',sb)
end.
Объяснение:
Если интервал [n,m]
1)
(Слова разделяются одним пробелом)
var s:string;
l,i:integer;
begin
writeln('Введите строку:');
readln(s);
l:=length(s);
i:=l;
while s[i]<>' ' do
begin
s[i]:='!';
i:=i-1;
end;
writeln(s);
end.
Пример:Введите строку:
с клавиатуры вводится строка символов
с клавиатуры вводится строка !!!!!!!!
2)
var s1,s2:string;
p,i:integer;
begin
writeln('Введите строку:');
readln(s1);
p:=pos(';',s1);
s2:=copy(s1,1,p);
i:=p+1;
while s1[i]<>';' do i:=i+1;
s2:=s2+copy(s1,i,length(s1)-i+1);
writeln(s2);
end.
Введите строку:
abс;xyz;reо
abс;;reо
сообщить учителю и ничего не предпринимать самому....
