var
count: integer;
begin
write('введите количество грибов '); readln(count);
write('мы нашли в лесу ', count);
case count div 10 of
1: writeln(' грибов');
else
case count mod 10 of
0, 5..9: writeln(' грибов');
1: writeln(' гриб');
2..4: writeln(' гриба');
end;
end;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Система шифрования, следующим свойством: по ключу шифрования легко найти ключ дешифрации: шифрование с открытым ключом ключ шифрование с секретным ключом цифровые подписи