Ручка, лук, ключ, мышь, наряд, раковина, кран, ласка, такса, рысь.
Var
i,k,s:integer;
begin
k:=0; s:=0;
i:=7;
Writeln('Числа на интервале [7;100], кратные 7:');
while i<=100 do begin
Write(i,' ');
s:=s+i; Inc(k);
i:=i+7
end;
Writeln;
Writeln('Сумма этих чисел равна ',s,', количество равно ',k);
end.
Результат выполнения программы
Числа на интервале [7;100], кратные 7:
7 14 21 28 35 42 49 56 63 70 77 84 91 98
Сумма этих чисел равна 735, количество равно 14
2 различные строки, остальные будут повторяться
<span>abbabbabbabb - исходная
</span>babbabbabbabbbabbabbabba
abbabbabbabb - повторяется