Question

Помогите решить задачу по программированию на языке Паскаль Дается год. Нужно найти век и сколько лет прошло с начала года. год:1234,3082 помогите

Answer 1

В первом начало 13-го ст. А во втором начало 31-го столетия. Во втором вопросе: первая 34 года, а во втором 82 вроде так

Answer 2

Для решения этой задачи в Паскале вы можете воспользоваться следующим кодом:

pascalCopy code
program YearToCenturyAndYears;
var
  year, century, years: integer;
begin
  // Введите год
  write('Введите год: ');
  readln(year);
  
  // Рассчитываем век
  century := (year - 1) div 100 + 1;
  
  // Рассчитываем, сколько лет прошло с начала века
  years := year - (century - 1) * 100;
  
  // Выводим результат
  writeln('Век: ', century);
  writeln('Лет с начала года века: ', years);
end.

Просто скопируйте этот код в среду разработки Паскаль и выполните программу, введя год (например, 1234 или 3082). Программа выведет век и сколько лет прошло с начала года века.