Иванович-Васильевна1153
?>

Тема - обработка символьных величин на паскале. ввести свою фамилию, имя и отчество как одно текстовое данное, используя пробел как разделитель. вывести на экран - фамилию; - имя; - фамилию и инициалы. не понимаю, если я даже и начну выводить фамилию, как сделать так. чтобы выделялось только до пробела? ведь фамилии у всех разные. а программа должна быть универсальной для всех фамилий (т.е. фамилия вводится с клавиатуры)

Информатика

Ответы

Кожуховский398

var

   n, i, aon_i, k: integer;

   f: boolean;

function AmountOfNumbers(n: integer): integer;

var

   s: integer;

begin

   s := 0;

   while n > 0 do

   begin

       s := s + n mod 10;

       n := n div 10;

   end;

   AmountOfNumbers := s;

end;

begin

   readln(n);

   

   for i := 0 to n do

   begin

       f := true;

       aon_i := AmountOfNumbers(i);

       

       for k := 2 to 9 do

           f := f and (aon_i = AmountOfNumbers(k * i));

       if f then writeln(i);

   end;

end.

Объяснение:

av52nazarov

В настоящее время инновации являются активным звеном всех сфер жизнедеятельности общества. Невозможно представить современный мир без как уже осуществившихся инноваций и ставших привычными, так и без будущих дальнейшей эволюции. Большинство ученых сходятся во мнении, что инновации превратились в основную движущую силу экономического и социального развития. Инновационная деятельность привела мировое сообщество к новой, более высокой ступени развития. Понятие «инновации» используется практически повсеместно, является темой бесед как на бытовом, так и на профессиональном уровне, в т.ч. на уровне глав государств, международных организаций и т.д. Под инновацией можно понимать конечный результат инновационной деятельности, получивший воплощение в виде нового или усовершенствованного продукта, внедренного на рынке, нового или усовершенствованного технологического процесса, используемого в практической деятельности, нового подхода к социальным проблемам. В принципе, термин «инновации» можно трактовать по-разному, он имеет бесконечное количество формулировок и определений. Проанализировав множество определений можно сделать вывод, что под «инновацией» понимается или конечный результат или процесс. Это, по сути, диаметрально противоположные точки зрения. Первой точки зрения придерживаются Балабанов И.Т., Борисенко И.А., Винокуров В.И., Дорофеев В.Д. и Древясников В.А., Ильенкова С.В., Коровина А.Н., Медынский В.Г., Сурин А.В. и Молчанова О.П., Фатхутдинов Р.А. и др., второй – Аньшин В.М., Гринев В.Ф., Друкер П., Румянцев А.А., Хотяшева О.М., Цветков А.Н., Шумперт Й и др. Как видно, ученых, которые считают, что инновация – это, прежде всего, результат несколько больше. Такая же точка зрения указывается в методическом документе - «Руководстве Осло», которое принято странами Организацией экономического сотрудничества и развития. Функции, которые выполняют инновации в рамках развития экономики и общества являются многочисленными; невозможно охватить весь их спектр, можно выделить только основные. Инновации : экономическому росту страны в долго перспективе. Инновации вышли на первый план еще в рамках индустриального общества. К началу эры постиндустриального и информационного общества инновации прочно заняли место основного генератора экономического роста любой страны. Инновации воздействуют на все стороны жизнедеятельности общества, в т.к. и на экономическую ее составляющую. созданию новых от).

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Тема - обработка символьных величин на паскале. ввести свою фамилию, имя и отчество как одно текстовое данное, используя пробел как разделитель. вывести на экран - фамилию; - имя; - фамилию и инициалы. не понимаю, если я даже и начну выводить фамилию, как сделать так. чтобы выделялось только до пробела? ведь фамилии у всех разные. а программа должна быть универсальной для всех фамилий (т.е. фамилия вводится с клавиатуры)
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Низамов
bezzfamilny631
testovvanya
mikek0906
re22no22
КутузоваМартенюк
Nikolai_oksana
jagerlayf
Vik1744184
АннаМаргарита
syana80
grekova5
jamaltreid
Евгеньевна_Хусинов
Erikhovich