Ввод текста сопровождается вводом следующих разделителей:
• разделителей слов и знаков препинания;
• разделителей элементов таблиц;
• разделителей строк;
• разделителей абзацев;
• разделителей страниц.
Некоторые из них должны быть введены
явно, а некоторые вводятся автоматически, хотя
их ввод можно форсировать вручную.
При воспроизведении на экране или печатной странице разделители
отображаются пробельным материалом (зазором, интервалом), но их можно явно
отобразить в специальном режиме. Этот режим включается (и выключается)
комбинацией клавиш CTRL + SHIFT + 8 или кнопкой Отобразить все знаки в
группе Абзац на вкладке Главная
i, n, s: integer;
begin
readln(n);
i := 0;
s := 0;
while i < 7 do
begin
if (n mod 2 = 1) then begin
s := s + n;
i := i + 1;
end;
n := n + 1;
end;
writeln(s);
end.
var
i, n, s: integer;
begin
readln(n);
i := 0;
s := 0;
repeat
if (n mod 2 = 1) then begin
s := s + n;
i := i + 1;
end;
n := n + 1;
until i >= 7;
writeln(s);
end.
var
i, n, s: integer;
begin
readln(n);
n := n + (n + 1) mod 2;
s := 0;
for i := 1 to 7 do
begin
s := s + n;
writeln(n);
n := n + 2;
end;
writeln(s);
end.