Program mas;var i,k,sum:integer; a:array [1..1000] of integer;beginfor i:=1 to 1000 dobegin;readln(a[i]);if a[i]=0 then break;end;k:=0;sum:=0;for i:=1 to 1000 dobegin;sum:=sum+a[i];if (a[i] mod 2=0) and (a[i] mod 5=0) and (a[i]<>0) thenk:=k+1;end;writeln('summa= ',sum);writeln('kolichestvo=',k);readln;end.
["bbaabbaabbaa", "baabbaabbaab", "aabbaabbaabb", "abbaabbaabba"]
4 уникальных строки считая оригинал
#Программа на Ruby22
s = "abbaabbaabba"
a = []
for i in 0..s.size
s = s[1..-1] + s[0..0]
a << s if not a.include?(s)
end
p a
p a.size
1 * 35 - 2 * 14 = 7
1 * 14 - 0 * 35 = 14
2 * 14 - 0 * 35 = 28
1 * 35 - 1 * 14 = 21
1 * 35 - 0 * 14 = 35
3 * 14 - 0 * 35 = 42
1 * 14 + 1 * 35 = 49
1, бумажная, компьютерная,
2.Под традиционными будем понимать следующие носители информации:бумага, холст, пластмасса (грампластинка), магнитная лента (аудио и видеокассета), фотографические материалы (фотопленка, фотопластина, фотоотпечаток, микроноситель.