Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.