Question

ПОМОГИТЕ ! Напишите программу для Паскаля ! Первые две цифры в дробной части заданного вещественного числа совпадают с записью целой части этого числа.

Answer 1

####################

Answer 2

Конечно, я могу помочь с написанием программы на Паскале, удовлетворяющей вашим требованиям. Вот пример такой программы:

scssCopy code
program FirstTwoDecimalDigits;

var
  num, intPart, fracPart: real;
  intStr, fracStr: string;
  
begin
  writeln('Введите вещественное число:');
  readln(num);
  
  intPart := Trunc(num);
  fracPart := num - intPart;
  
  Str(intPart, intStr); { преобразование целой части в строку }
  Str(fracPart:0.00, fracStr); { преобразование дробной части в строку }
  
  if intStr[1] = fracStr[3] then
    writeln('Первые две цифры дробной части совпадают с целой частью.')
  else
    writeln('Первые две цифры дробной части не совпадают с целой частью.');
    
  readln; { ожидание нажатия клавиши перед закрытием программы }
end.

Эта программа запрашивает у пользователя вещественное число, затем вычисляет его целую и дробную части с помощью функций Trunc и Fraction. Затем программа преобразует обе части в строки с помощью процедуры Str. Наконец, программа сравнивает первую цифру строки с целой частью числа с третьей цифрой строки с дробной частью числа, чтобы определить, совпадают ли первые две цифры. Результат выводится на экран.

Надеюсь, это поможет!