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 цифр числа нет, поэтому вводим в строковый тип, и поэтому всё равно, что бить по три, цифры или буквы.
<u>Только для версии PascalABC.Net 3.2</u>
Коротко и эффектно!
begin
Writeln('Количество слов равно ',ReadlnString('Вводите:').ToWords.Count)
end.
Пример
Вводите: Карл у Клары украл кораллы.
Количество слов равно 5
<u>VBA MS Excel 2003</u>
Sub aaa()
a = Split(InputBox("Вводите строку"), " ")
k = 0
For Each e In a
If e <> "" Then k = k + 1
Next
MsgBox "Количество слов равно" + Str(k)
End Sub
Эквивалент - это цифра, стоящая после символа 'e' или 'E'. Коротко говоря, эквивалент можно преобразовать в вид 
То есть, Ваша запись могла бы записаться так:
<h2>Ответ</h2>
7
A:= 30;
<span>a:=30;
b:= 6;
a:=30*3/6 после этого a примет значение a:=15, подставляем в условие
if 15>6 </span><span>then (если условие выполняется), а оно выполняется, то решаем первое уравнение
c:= 2*15-5* (6+2) получаем
c:=-10
если писать на паскале, то будет так
var a,b,c:real;
begina:= 30;b:= 6;
a:= a * 3 / b;if a > b then
c:= 2*a - 5*(b+2)else
c:= 2*a + 5*(b+2);
writeln (c);
<span>end.</span></span>
Задание 1:
Var n,i:integer;
begin
readln(n);
for i:=1 to n do
write(i,',');
writeln;
<span>end.
Задание 2:
Var n,i:integer;
begin
readln(n);
for i:=n to 1 do
write(i,',');
writeln;
<span>end.
Задание 3:
Var n,k,i:integer;
begin
writeln('Введите N');
readln(n);
writeln('Введите K');
readln(k);
for i:=1 to n do
write(k,',');
writeln;
<span>end.
<u>Научитесь наконец писать разборчиво задания! Ничего не понятно!!!</u></span></span></span>
