Решение задач из главы 8
Primary tabs
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.
- Log in to post comments
- 1091 reads
vedro-compota
Sat, 09/12/2020 - 20:38
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)