Школьная олимпиада по информатике для начинающих

[назад]

Задача №1.Найти наибольшее целое число из четырех введенных с клавиатуры (5 баллов).

var

x,y,z,w:integer;

begin

writeln('Введите четыре целых числа');

readln(x,y,z,w);

if x < y then

  x := y;

if x < z then

  x := z;

if x < w then

  x := w;

writeln('Максимальное число =  ', x);

readln;

end.

Задача №2. Написать программу, которая будет менять местами два введенных с клавиатуры слова. Слова разделены пробелом (10 баллов).

Тест. Введено «Иван Петров», результат «Петров Иван».

var

  str, str2:string;

  i:integer;

begin

  writeln('Введите строку символов');

  readln(str);

  for i := 1 to length(str) do

    if str[i] = ' ' then

      begin

         str2 := copy(str,1,i-1);

         delete(str,1,i);

      end;

writeln('Итоговая строка - ',str + ' '+ str2); readln;

end.

Задача №3. Подсчитайте, сколько слов во введенном предложении начинается с буквы «w» (15 баллов).

var

  str:string;

  x ,i:integer;

begin

  writeln('Введите предложение');

  readln(str);

  for i:=1 to length(str) do

    if str[i]=' ' then

      if str[i+1]= 'w' then

        x:=x+1;

 end;

  if str[1]='w' then

    x:=x+1;

  writeln(‘Количество слов в предложении  начинающихся буквой «w»  =  ‘ , x);

  readln;

end.

[назад]