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

Question

Информатика

Аксён

5 октября, 18:19

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

+3

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