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

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

Question

Информатика

Костюня

11 октября, 20:54

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

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

+2

Ответы (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.