Обработка - осмыслить полученную информацию
Хранение - сохранение или запись полученной информации(в голове или на школьной доске)
передача - переместить информацию в пространстве, например тетрадь или голос
var a:array[1..100000] of integer;
i,n,k:integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin readln(a[i]); if(a[i]=0) then k:=k+1; end;
writeln(k);
end.
{Сначала вводится количество чисел в массиве (n), после этого вводится каждое число (a[i]) и если оно равно 0, то переменная k (количество)
увеличивается на 1}
//Pascal ABC.NET v3.1 сборка 1172
Var
s,c:string;
i,k,j,m:integer;
begin
readln(s);
k:=0;
m:=length(s);
i:=0;
while i<>m do
begin;
inc(i);
for j:=i to m do
if s[i]=s[j] then inc(k);
if k=3 then
begin;
c:=s[i];
while pos(c,s)<>0 do
delete(s,pos(c,s),1);
end;
k:=0;
m:=length(s);
end;
writeln(s);
end.
Пример ввода:
Панамка
Пример вывода:
Пнмк