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

Question

Информатика

Дюся

22 октября, 10:46

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

+5

Ответы (2)

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

Харитина · Answer 1

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

Женюра · Answer 2

Program p1;

var

y:integer;

begin

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

readln (y) ;

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

end.