Question

Нужно переделать код из питона в паскаль n = int(input()) d = int(input()) if d == 1: print(n//7) else: print((n - (8 - d)) // 7)

Answer 1

Ответ:

var

n,d:integer;

begin

 read(n,d);

 if d=1 then

   write(n div 7)

 else

   write((n-(8-d)) div 7)

end.

Объяснение:

Answer 2

Конечно, вот ваш код, переписанный на языке Pascal:

pascalCopy code
program Main;

var
  n, d, result: Integer;

begin
  Write('Введите n: ');
  ReadLn(n);
  Write('Введите d: ');
  ReadLn(d);

  if d = 1 then
    result := n div 7
  else
    result := (n - (8 - d)) div 7;

  WriteLn('Результат: ', result);
end.

Этот код сначала считывает значения n и d, а затем выполняет те же самые вычисления и выводит результат, как в оригинальном коде на Python.