Урок 8 (Решенные задачи)

Урок 8 (Решенные задачи)

1) Объявите 5 переменных строкового типа. Одной из них присвойте значение и выведете значение этой переменной на экран.

var a,b,c,d,e: string;

begin
  c := 'kolpak';
  write(c);
end.

2)Получите от пользователя 5 строк, сложите их и выведите полученный результат на экран.

var a,b,c,d,e: string;

begin
  writeln('vvedite 5 strok');
  readln(a);
  readln(b);
  readln(c);
  readln(d);
  readln(e);
  writeln(a + b + c + d + e);
  readln();
end.

3)Получите от пользователя три произвольных строки, одним выражением выполните конкатенацию следующим образом:

""первая строка + произвольный литерал + вторая строка + третья строка""

Результат конкатенации выведите на экран.

var m, l, y: string;

begin
  writeln('vvvedite 3 stroki');
  readln(m);
  readln(l);
  readln(y);
  writeln(m + 'hop' + l + y);
  readln();
end.

4)Получите от пользователя четыре строковых значения, выведете на экран результат проверки условия:

""первое значение равно третьему и первое НЕ равно четвертому или четвертое равно третьему"".

var a,b,c,d: string;

begin
  writeln('vvedite 4 stroki');
  readln(a);
  readln(b);
  readln(c);
  readln(d);
  writeln((a = c) and (a <> d) or (d = c));
end.