Сделайте программу в паскале abc! сли вводишь год рождения он выводит век

Question

Информатика

Дюся

9 декабря, 19:35

Сделайте программу в паскале abc! сли вводишь год рождения он выводит век

+3

Ответы (2)

Знаете ответ на вопрос?

Женюра · Answer 1

Program p1;

var

y:integer;

begin

write ('Введите год, год = ') ;

readln (y) ;

Writeln ('Век = ', y div 100) ;

end.

Харитина · Answer 2

var

a:integer;

begin

readln (a) ;

if a mod 100=0

then writeln (a div 100)

else writeln ((a div 100) + 1, ' век')

end.

поясню. к примеру, 2000 год - это еще 20 век, а не 21