Question

Паскаль. Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали ее в конце. Найти полученное число.

Answer 1

program zadacha1;

uses crt;

var a,b,c,d: integer;

begin

clrscr;

writeln('vvedi trexznachnoe chislo');

readln(a);

b:= a div 100;

c:= a mod 100 div 10;

d:= a mod 100 mod 10;

write(c); write(d); write(b);

readln;

end.

Answer 2

Эта задача представляет собой типичный пример задачи на программирование на языке Паскаль. Давайте рассмотрим алгоритм для решения этой задачи:

1. Введем трехзначное число с клавиатуры.

2. Зачеркнем первую цифру слева. Это можно сделать, преобразовав трехзначное число в строку и взяв подстроку без первого символа.

3. Припишем зачеркнутую цифру в конец числа. Также, это можно сделать, объединив строку, содержащую зачеркнутую цифру, с исходным числом.

4. Преобразуем полученную строку в число, чтобы выполнить математические операции с ним.

5. Выведем полученное число на экран.

Вот пример кода на языке Паскаль, который решает эту задачу:

program FindModifiedNumber;

var
  originalNumber, modifiedNumber: Integer;
  strOriginal, strModified: String;

begin
  // Вводим трехзначное число
  write('Введите трехзначное число: ');
  readln(originalNumber);

// Преобразуем число в строку
  strOriginal := IntToStr(originalNumber);

// Зачеркиваем первую цифру и приписываем ее в конец
  strModified := Copy(strOriginal, 2, 2) + Copy(strOriginal, 1, 1);

// Преобразуем строку обратно в число
  modifiedNumber := StrToInt(strModified);

// Выводим результат
  writeln('Полученное число: ', modifiedNumber);

end.

Обратите внимание, что код может различаться в зависимости от конкретной среды программирования на языке Паскаль, которую вы используете. В данном примере предполагается использование стандартных функций, таких как `IntToStr`, `Copy`, и `StrToInt`.