Pascal 8 урок
Primary tabs
Объявите 5 переменных строкового типа. Одной из них присвойте значение и выведете значение этой переменной на экран.
var a, b, c, d, i : string; begin a := 'privet'; writeln(a); readln(); end.
Получите от пользователя 5 строк, сложите их и выведите полученный результат на экран.
var a, b, c, d, i: string; begin writeln('vvedite stroku a '); readln(a); writeln('vvedite stroku b '); readln(b); writeln('vvedite stroku c '); readln(c); writeln('vvedite stroku d '); readln(d); writeln('vvedite stroku i '); readln(i); a := a + b + c + d + i; writeln(a); readln(); end.
Получите от пользователя три произвольных строки, одним выражением выполните конкатенацию следующим образом:
""первая строка + произвольный литерал + вторая строка + третья строка""
Результат конкатенации выведите на экран.
var a, b, c: string; begin writeln('vvedite stroku a '); readln(a); writeln('vvedite stroku b '); readln(b); writeln('vvedite stroku c '); readln(c); a := a + ' stop ' + b + c; writeln(a); readln(); end.
Получите от пользователя четыре строковых значения, выведете на экран результат проверки условия:
""первое значение равно третьему и первое НЕ равно четвертому или четвертое равно третьему"".
var a, b, c, d: string; begin writeln('vvedite stroku a '); readln(a); writeln('vvedite stroku b '); readln(b); writeln('vvedite stroku c '); readln(c); writeln('vvedite stroku d '); readln(d); writeln(' c = a <> d ili d = c : ', ((c = a) and ( a<>d)) or (d = c) ); readln(); end.
- Log in to post comments
- 622 reads