Написать программу:

Дан номер некоторого года (целое положительное число>1000). Определить соответствующий ему номер столетия, учитывая, что, к примеру, началом 20 столетия был 1901 год

Question

Информатика

Костюня

29 декабря, 19:36

Написать программу:

Дан номер некоторого года (целое положительное число>1000). Определить соответствующий ему номер столетия, учитывая, что, к примеру, началом 20 столетия был 1901 год

+5

Ответы (1)

Знаете ответ?

Полюха · Answer 1

Uses crt;

var a, i:integer;

begin

writeln ('Введите год') ;

readln (a) ;

i:=a div 100;

if a mod 100 0 then i:=i+1;

writeln (a,' год = ', i,' столетию') ;

end.