program raf105;
var
s,s1,s2: string;
slov,numb,i,j: integer;
begin
writeln('введите строку: ');
readln(s);
s: = lowercase(s);
s1: = 'йцукенгшщзхъфывапролджэячсмитьбюёqwertyuiopasdfghjklzxcvbnm';
s2: = '1234567890';
for i: =1 to length(s1) do
if s[1] = s1[i]
then slov+= 1
else if (i< =length(s2)) and (s[1] = s2[i])
then numb+=1;
for i: =2 to length(s) do
begin
if s[i] = ' '
then
begin
for j: =1 to length(s1) do
if s[i+1] = s1[j]
then slov+= 1;
end
else
begin
for j: =1 to length(s2) do
if s[i] = s2[j]
then numb+= 1;
end; ;
end;
writeln;
writeln('в строке: ');
writeln(slov,' сл.');
writeln(numb,' циф.');
end.
язык pascalabcответ:
объяснение:
понятие информации - одно из самых в современной науке. наряду с такими понятиями, как вещество, энергия, пространство и время, оно составляет основу современной научной картины мира;
в науке существует три подхода к феномену информации
атрибутисты полагают, что информация как семантическое свойство материи является неотъемлемым атрибутом всех элементов и систем объективной реальности, она существовала и существует вечно.
функционалисты отрицают существование информации в неживой природе. по их мнению информация через информационные процессы реализует функцию () в биологических, социальных и социотехнических системах. то есть информация - это одна из функций жизни, основное отличие живого от неживого.
антропоцентристы ограничивают сферу информации главным образом социальными системами и определяют ее как содержание (смысл) сигнала, полученного системой из внешнего мира.
Поделитесь своими знаниями, ответьте на вопрос: