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

0 голосов
62 просмотров

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


Информатика (16 баллов) | 62 просмотров
Дано ответов: 2
0 голосов

//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.


image
(9.4k баллов)
0 голосов

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.

(116 баллов)