Паскаль ввести возраст человека (от 1 до 10 лет ) и вывести год вместе с последующим словом " год","года" или "лет". Помогите пожалуйста



//Pascal
var A: integer;
begin
  write('Введите число: '); readln(A);
  if A mod 10 = 1 then writeln(A,' год.')
  else
  if ((A mod 10 = 2) or (A mod 10 = 3) or (A mod 10 = 4)) then
    writeln(A,' года.')
  else writeln(A,' лет.')
end.

Оцени ответ

Program VV;
        var a: integer;
begin
Writeln ('Введите число от 1 до 10');
Readln(a);
if (a = 1) then begin
   writeln (a, ' год');
   end;
if (a = 2) or (a = 3) or ( a = 4) then begin
   writeln (a,' года');
   end;
if (a = 5) or (a = 6 ) or (a = 7) or (a = 8) or (a = 9) or (a = 10)  then begin
   writeln (a, ' лет ');
   end;
  
end.

Оцени ответ
Не нашёл ответ?

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.

Найти другие ответы

Загрузить картинку
© Задачки.net