блок схемы кстати нет, так что не обессудь
1024
x=0
x=x+1
x=x+1
x=x*2 (9раз)
500
x=0
x=x+1
x=x+1
x=x+1
x=x*2
x=x+1
x=x*2
x=x+1
x=x*2
x=x+1
x=x*2
x=x*2
x=x+1
x=x*2
x=x*2
Var a,b,c:integer;
p,n:string;
begin
readln(p)
;For a:=1 to length(p) do
begin
n:=copy(p,a,1);
If (n=' ') or (n=',') then
begin
If b>c then c:=b;
b:=0
end
else
b:=b+1;
end;
If c=0 then c:=b;
writeln (c);
<span>end.</span>
Текстовый процессор может изменять шрифт удалять красить заменять сохранять форматировать и много много еще а редактор может только редактировать
Const
n = 10;
var
i, c: integer;
a, w: array[1..n] of integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i], ' ');
end;
writeln;
c := 0;
for i := 1 to n do
if a[i] > 0 then
begin
c := c + 1;
w[c] := a[i];
end;
writeln('Кол-во положительных элементов: ', c);
for i := 1 to n do
begin
if a[i] <= 0 then
begin
c := c + 1;
w[c] := a[i];
end;
end;
writeln('Результат:');
for i := 1 to c do
write(w[i], ' ');
end.
<span><span><span>
Аккорд - комбинация нажатия клавиш Ctrl+Alt+Del
</span><span>Баг - ошибка в программе
</span><span>Балалайка - виртуальная машина
</span><span>Барсик - язык Basic
</span><span>Батон - кнопка, клавиша
</span><span>Бипер - встроенный динамик
</span><span>Болванка - пустой оптический диск для записи
</span><span>Бродилка - игра жанра "квест" или "шутер"
</span><span>Ведро - упаковка из 50 болванок (см. выше)
</span><span>Вика - видеокарта
</span><span>Винда - Microsoft Windows
</span><span>Винт - жесткий диск ("винчестер")
</span><span>Демка - демонстрационная версия программы
</span><span>Лава - деньги
</span><span>Ламер - неумелый пользователь компьютера с завышенной самооценкой
</span><span>Ноут - ноутбук
</span><span>Парс - парсер, синтаксический анализатор.
</span><span>Проц
</span></span></span>- процессор
Кроме того, обнаружено слово "куб", но возможно это слово не жаргон, - по крайней мере, я его никогда не встречал среди жаргонных слов.