1. Дано рядок. Змініть регістр символів в цьому рядку так, щоб перша буква кожного слова була великою, а інші літери - малими.

2. Напишіть програму, яка отримує три рядки: прізвище, ім’я і по батькові особи, а потім виводить на екран ініціали та прізвище.

3. Напишіть програму, щоб перевірити, з яких символів складається рядок, введений користувачем: лише з цифр, лише з букв, або з букв і цифр.
4. Скласти програму, яка запитує назву баскетбольної команди і повторює її на екрані зі словами: This is a champion!.

program raf105;

var i,min,kolN,sumN,sariN:integer;

a:array[1..30] of integer;

begin

writeln('Элементы массива:');

min:=99;

for i:=1 to 30 do

begin

 a[i]:= random(1,60);

 write(a[i],' ');

 if (a[i]<min) and ((a[i] mod 4)=0)

   then min:= a[i];

 if ((a[i] mod 2)<>0)

   then

   begin

     kolN:= kolN+1;

     sumN:= sumN+a[i];

   end;

end;

writeln;

if min=99

 then min:=0;

sariN:= round(sumN/kolN);

writeln('Минимальное значение среди чётных элементов кратных четырём:');

writeln(min);

writeln('Среднее арифметическое среди нечётных элементов:');

writeln(sariN);

end.

Язык программирования PascalABC

program raf105;

var abc,a,b,c:integer;

begin

write('Введите трёхзначное число: ');

readln(abc);

a:= abc div 100;

c:= abc mod 10;

b:= (abc-((a*100)-c)) div 10;

if (a>b) and (a>c)

 then begin

   a:= a*100;

   if b>c

     then b:=b*10

     else c:=c*10;

  end;

if (b>a) and (b>c)

 then begin

   b:= b*100;

   if a>c

     then a:=a*10

     else c:=c*10;

  end;

if (c>b) and (c>a)

 then begin

   c:= c*100;

   if b>a

     then b:=b*10

     else a:=a*10;

  end;

abc:= a+b+c;

writeln('Компьютер переставил цифры числа в порядке убывания: ',abc);

end.

Язык PascalABC