Var
s:string;
i,n,w:integer;
begin
writeln('Введите текст');
readln(s);
s:=s+' ';
n:=length(s);
for i:=1 to n do
if (s[i]='а') and (s[i+1]=' ') then
inc(w);
writeln('Кол-во = ',w);
<span>end.</span>
6 символов,по 3 бита на символ, 18 бит.
<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()
{</span><span>int a,b,k=1,n=1;</span><span>cin >> a >> b;</span>
<span>for (int i = 0; i < n; ++i)
{if ((k % a == 0) && (k % b == 0)) {cout << k; return 0;} else k++; n++;}</span>
}
<span>
</span>
Ответ:
#include <iostream>
using namespace std;
int main()
{
int а; int b;
cout << "enter the first integer number: ";
cin >> a;
cout << "enter the second integer number: ";
cin >> b;
if(a<b || a=b) a=0;
cout << "a=" << a<< "\n"<<"b="<<b<<"\n";
system("pause");
return 0;
}