Информатика, вопрос задал gsdevilboy98 , 10 лет назад

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

Ответы на вопрос

Ответил nemp
0

Program p1;
var
y:integer;
begin
write('Введите год, год = ');
readln(y);
Writeln('Век = ',y div 100);
end.

Ответил kefa
0

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

Новые вопросы