Var N, k, i: integer;
begin
write(' N = ');
readln(N);
k:=0;
for i:=N downto 1 do
k:=k+i*i;
writeln ('k=', k);
end.
Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
Begin
Read(A);
if (A mod 10 = 8) then k:=k+1;
End;
WriteLn(k);
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