Помогите! Нужно составить программу в Паскале abc.

Question

Составьте программу, которая для натурального числа k (от 1 до 50), введенного c клавиатуры, добавит в нужных случаях «книга» , «книги» или «книг» .

Lipo Gevorgyan · Accepted Answer

case k mod 100 of 
 11..20:..книг; 
 default:case k mod 10 of 
 1:...книга; 
 2..4:...книги; 
 default:..книг; 
 end; 
end;

Fbmvika · Answer

если к = 1 - книга 
иначе если к < 5 - книги 
иначе книг 
 
да, капитан прав - не k, а k mod 100

Алексей Васильев · Answer

а вот на Паскале 
 Program lab_2; 
Uses crt; 
Var 
k: integer; 
begin 
clrscr; 
 write('Ввести количество книг --> '); readln(k); 
case k mod 100 of 
11..20:writeln(k,' книг'); 
else case k mod 10 of 
1:writeln(k,'книга'); 
2..4:writeln(k,'книги'); 
else writeln(k,'книг'); 
end; 
end; 
 
end.