№1
#include <iostream>
using namespace std;
int main ()
{
<span> int a,b;</span><span>
cin >> a >> b;</span><span>
if (a<b)</span><span> cout << a << endl;
</span><span> else if (a==b)</span><span> cout << "a=b" << endl;
</span><span> else</span><span> cout << b << endl;
</span><span> system ("PAUSE");</span><span>
return 0;
</span>}
№2
#include <iostream>
using namespace std;
int main ()
{
<span> char ch1,ch2;</span><span>
int i1,i2;</span><span>
cin >> ch1 >> ch2;</span><span>
i1=ch1;
</span><span> i2=ch2;</span><span>
if (i1<=i2)</span><span> cout << ch1 << ' ' << ch2 << endl;</span><span>
else</span><span> cout << ch2 << ' ' << ch1 << endl;</span><span>
system ("PAUSE");</span><span>
return 0;
</span>}
№3
#include <iostream>
using namespace std;
int main ()
{
<span> float p,q;
</span><span> cout << "p=";</span><span>
cin >> p;</span><span>
cout << "q=";</span><span>
cin >> q;
</span><span> cout << p-2*q << endl;
</span><span> system ("PAUSE");</span><span>
return 0;
</span><span>}</span>
6-минимальный шрифт, 88-максимальный
1) нарисовать 1 большой круг
2) отступив 5 миллиметров и сделать второй круг
3) примерно по середине разделить воображаемой линией
4) отступив от линии одинаковое пространство, нарисовать маленькие кружки
5) раскрасить
Var s,r,k: string;
j: integer;
begin
write('строка: '); readln(s);
foreach k in s.Split(' ').Distinct do
begin
j:=0;
foreach r in s.Split(' ') do
if r=k then j:=j+1;
writeln('слово ','"',k,'"',' встречается ',j,' раз');
end;
<span>end.
</span>