ЕА
Екатерина Асеева
Помогите! Нужно составить программу в Паскале abc.
Составьте программу, которая для натурального числа k (от 1 до 50), введенного c клавиатуры, добавит в нужных случаях «книга» , «книги» или «книг» .
Составьте программу, которая для натурального числа k (от 1 до 50), введенного c клавиатуры, добавит в нужных случаях «книга» , «книги» или «книг» .
case k mod 100 of
11..20:..книг;
default:case k mod 10 of
1:...книга;
2..4:...книги;
default:..книг;
end;
end;
если к = 1 - книга
иначе если к < 5 - книги
иначе книг
да, капитан прав - не k, а k mod 100
а вот на Паскале
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.