Var n: integer;
s: string;
begin
write('Введите строку символов ');
readln(s);
n:=Length(s);
for var i:= 1 to ((n-1) div 3) do
insert(',',s,n-3*i+1);
writeln(s);
end.
-----------
АБС паскаль.
типа данных для 100 цифр числа нет, поэтому вводим в строковый тип, и поэтому всё равно, что бить по три, цифры или буквы.
Стандартом сотовой связи не является <span>MMS</span>
Const nmax = 5;
var a:array [1..nmax] of integer;
i,k:integer;
begin
k:=0;
randomize;
for i:=1 to nmax do
begin
a[i]:=random(11)+10;
write (a[i],' ');
if a[i] mod 5 = 0 then inc(k);
end;
writeln;
writeln ('Kol-vo: ',k);
end.
Сноска — это ссылка вне основного текста на источник информации, использованный при написании статьи, или комментарий. Ссылка создаётся с помощью соответствующих тегов или шаблонов, которые нужно вставить после поясняемой части текста.
В окончательном тексте сноски размещаются автоматически в разделе «Примечания». Также автоматически после фрагмента поясняемого текста ставится знак сноски (цифра или значок), связывающий поясняемый текст со сноской, а в «Примечаниях» перед сноской ставится значок возврата к поясняемому тексту. Если кликнуть мышкой по знаку сноски, то текст переместится к сноске, если по значку возврата — то к поясняемому тексту.
<span>Память человека это высшая функция нервной деятельности, и процессы в которой не до конца изучены, я бы не стал называть ее строго оперативной. Она бывает кратковременной и долговременной, сенсорной, нервно мышечной. не может быть полноценно описана современными методами информатики</span>