Сделайте программу в паскале abc! сли вводишь год рождения он выводит век
Сделайте программу в паскале abc! сли вводишь год рождения он выводит век
Гость
Ответ(ы) на вопрос:
ГостьProgram p1;
var
y:integer;
begin
write('Введите год, год = ');
readln(y);
Writeln('Век = ',y div 100);
end.
Гость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
Не нашли ответ?
Похожие вопросы