program Project1;
var
S : String;
K, Num1, Num2 : Integer;
begin
repeat
Writeln('Задайте целое число:');
Readln(K);
S := 'Мы собрали ' + IntToStr(K) + ' ';
Num1 := K mod 10;
K := K div 10;
Num2 := K mod 10;
case Num1 of
1 :
begin
if Num2 = 1 then S := S + 'грибов'
else S := S + 'гриб';
end;
2..4 :
begin
if Num2 = 1 then S := S + 'грибов'
else S := S + 'гриба';
end;
else
S := S + 'грибов';
end;
S := S + ' в лесу.';
Writeln('Результат:');
Writeln(S);
Writeln('Повторить - Enter. Выход - любой символ + Enter.');
Readln(S);
until S <> '';
end
может здесь, что-то выберешь для себя
Объяснение:
Информатизация общества – это повсеместное внедрение комплекса мер, направленных на обеспечение полного и своевременного использования достоверной информации, обобщенных знаний во всех социально значимых видах человеческой деятельности. В настоящее время по своему социальному значению информатизация общества сопоставима с его индустриализацией. Эта новая отрасль определяет технический уровень хозяйства.
Информатизация является реакцией общества на существенный рост информационных ресурсов и на потребность в увеличении производительности труда в информационном секторе общественного производства. Информатизация обеспечивает не только рост экономических показателей, развитие народного хозяйства, но и получение новых научных достижений в фундаментальных и прикладных науках, направленных на развитие производства, создание новых рабочих мест, повышение жизненного уровня. Успех в этом вопросе возможен при наличии программы создания информационной инфраструктуры.
Под информационной инфраструктурой понимается структура системы информационного обеспечения всех потребителей информации, которая предоставляет им возможность использования новых информационных технологий на базе широкого применения информационно-вычислительных ресурсов и автоматизированной системы связи.
Обмен информацией, ее обработка и хранение – одна из важнейших задач, которую решает человечество. Информатизация общества привела к фундаментальным изменениям в занятости, организационных структурах и стиле жизни людей. Наступила эра информационного общества, пришедшая на смену прежним аграрному и индустриальному обществам.