Написать программу : Дан номер некоторого года (целое положительное число больше 1000). Определить соответствующий ему номер столетия, учитывая, что, к примеру, началом 20 столетия был 1901 год
Написать программу :
Дан номер некоторого года (целое положительное число>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.
Не нашли ответ?
Похожие вопросы