Ввести 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.

Объяснение кода листинга программы

  1. В начале объявляются переменные s1, s2 типа string и x, y типа integer.
  2. Затем идет блок write, который выводит сообщение «Введите первое число: », а затем readln, который считывает значение x.
  3. После этого идет блок write, который выводит сообщение «Введите второе число: », а затем readln, который считывает значение y.
  4. Далее идет блок str, который преобразует значения x и y в строки и сохраняет их в переменных s1 и s2 соответственно.
  5. Затем идет блок write, который выводит результат объединения строк s1 и s2 в одну строку.
  6. Конец программы.

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы