Решение задач из главы 8

Решение задач из главы 8

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

program Project1;
var a, b, c, d, e: string;
begin
a := 'This is a string type variable.';
write('Answer: ', a);
readln();
end.
4. Получите от пользователя 5 строк, сложите их и выведите полученный результат на экран.
program Project1;
var a, b, c, d, e, total: string;
begin
writeln('Vvedite stroku 1:');
readln(a);
writeln('Vvedite stroku 2:');
readln(b);
writeln('Vvedite stroku 3:');
readln(c);
writeln('Vvedite stroku 4:');
readln(d);
writeln('Vvedite stroku 5:');
readln(e);
total:= a + b + c + d + e;
//total:= a + ' ' + b + ' ' + c + ' ' + d + ' ' + e; s probelami mezhdu peremennymi
write('Otvet: ', total);
readln();
end.
5. Получите от пользователя три произвольных строки, одним выражением выполните конкатенацию следующим образом: ""первая строка + произвольный литерал + вторая строка + третья строка"" Результат конкатенации выведите на экран.
program Project1;
var a, b, c, total: string;
begin
writeln('Vvedite stroku 1:');
readln(a);
writeln('Vvedite stroku 2:');
readln(b);
writeln('Vvedite stroku 3:');
readln(c);
total:= a + ' ' + b + c;
write('Otvet: ', total);
readln();
end.
6. Получите от пользователя четыре строковых значения, выведете на экран результат проверки условия: ""первое значение равно третьему и первое НЕ равно четвертому или четвертое равно третьему"".
program Project1;
var a, b, c, d: string;
  total: boolean;
begin
writeln('Vvedite stroku 1:');
readln(a);
writeln('Vvedite stroku 2:');
readln(b);
writeln('Vvedite stroku 3:');
readln(c);
writeln('Vvedite stroku 4:');
readln(d);
total:= (a = c) AND (a <> d) OR (d = c);
write('Otvet: ', total);
readln();
end.
vedro-compota's picture

решение засчитано

_____________
матфак вгу и остальная классика =)