Question

Задача на Паскаль,Помогите, пожалуйста дано N трехзначное число. Заменить первую цифру на один.

Answer 1

Var  a: integer;
begin
  read(a);
  writeln(1, a mod 100);
end.

Answer 2

Конечно, вот программа на Pascal, которая заменяет первую цифру трехзначного числа на единицу:

pascalCopy code
program ReplaceFirstDigit;
var
  N, NewNumber: integer;
begin
  // Введите трехзначное число
  write('Введите трехзначное число: ');
  readln(N);

  // Проверка на трехзначность числа
  if (N < 100) or (N > 999) then
  begin
    writeln('Число не является трехзначным.');
    exit;
  end;

  // Заменяем первую цифру на 1
  NewNumber := 100 + (N mod 100);

  // Вывод результата
  writeln('Исходное число: ', N);
  writeln('Число после замены первой цифры на 1: ', NewNumber);
end.

Программа сначала проверяет, что введенное число действительно трехзначное, иначе выводит сообщение об ошибке. Затем она заменяет первую цифру числа на 1 и выводит исходное число и результат замены.