<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
1.
а) a*x*x+b*x+c
б) v+a*t*t/2
в) 1/2*(a+b)*h
г) (1+x1*x2)/(b*b*c)
д) SQRT(a*a+b*b)
2. Операции * и / выполняются слева направо, поэтому (см. рис.):
1) = b*(a*d)/(e*c)
2) = (a*b)/(c*d*e)
3) = a*b*d/(c*e)
4) = (a*d*b)/(c*e)
"Лишнее" выражение - 2)
Var a,b,c,d,e,m1,m2,m3,ITOG:integer;
Procedure nod(x,y:integer;var n:integer);
Begin
If x=y then n:=x
else
if x>y then NOD(x-y, y, n)
Else NOD(x, y-x, n);
end;
begin
read (a,b,c,d,e);
nod(a,b,m1);
nod(c,d,m2);
nod(m1,m2,m3);
nod(m3,e,ITOG);
writeln (ITOG);
end.
Пример:
90 135 45 315 75
15
1. двоичный код :
00011100010110100011011000011100010111000011110000011100010111100011100
0000111000101110000110110000111000101110000110010000111000101110000111110
0001110001011110001110000001110001011100010101000001110001011100010111000
0011100010111000011011000011100010111000011001000101000000111000101100000
1100100001110001011100001110100001110001011100001111000001110001011100010
1011000011100010111000100001000011100010111000101101000011100010111000011
0010001010000001110001011010001100100001110001011110001110000001110001011
1100011010000011100010111000101011000011100010111000011001000011100010111
0001011010000111000101110001011100000111000101110000110110000111000101110
00101101000011100010111000011001
2.Десятичный код:
144527144630144728144627144625144631144728144642144646144627144625201444
2514462914463014464314463314464514462520144525144728144726144643144625144
645144646144627144645144625