Ввести 2 целых числа, перебрать в 2 строки, объединить в 1 строку - Turbo Pascal
Формулировка задачи:
Задали 2 задачи, первую надо решить обязательно, вторую желательно..
1. Ввести 2 целых числа, перебрать в 2 строки, объединить в 1 строку и вывести на экран.
2. написать прог-му, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ до тех пор, пока в строке не останется 1 символ. Например: Мира, Мир, Ми, М..
Решение задачи: «Ввести 2 целых числа, перебрать в 2 строки, объединить в 1 строку»
textual
Листинг программы
var s1,s2:string; x,y:integer; begin write('Введите первое число: '); readln(x); write('Введите второе число: '); readln(y); str(x,s1); str(y,s2); write(s1+s2); end.
Объяснение кода листинга программы
- В начале объявляются переменные s1, s2 типа string и x, y типа integer.
- Затем идет блок write, который выводит сообщение «Введите первое число: », а затем readln, который считывает значение x.
- После этого идет блок write, который выводит сообщение «Введите второе число: », а затем readln, который считывает значение y.
- Далее идет блок str, который преобразует значения x и y в строки и сохраняет их в переменных s1 и s2 соответственно.
- Затем идет блок write, который выводит результат объединения строк s1 и s2 в одну строку.
- Конец программы.