Вфайле dividends.txt на первой строке находится сумма общего дохода компании. далее с каждой новой строки пишутся имена и фамилии акционеров, а также через знак "-" их процентное соотношение (доля) от общего дохода компании; 2) вывести на экран имена и фамилии, а рядом с ними причитающиеся суммы к выплате.входные данные: 1000000 жакыпов марат - 5% токмурзин даулет - 10% канафина дана - 45% камзин рустем - 40%

Интернет стал предметом первой необходимости в в нём можно совершать покупки общаться с друзьями получать образование работать возможности интернета стали практически безграничными говорят что без еды человек может прожить 2 месяца если будет пить без воды человек погибает через 5-7 дней а можно ли прожить без интернета вы представляли когда-нибудь мир без интернета недавно люди жили без великого творения интернет остаться только удивляться как последние годы из простого информационного ресурса интернета нога превратился в незаменимую и важная часть нашей жизни работа учёба общения всё связано с всемирной паутиной сеть перестала быть просто источником информации на улице 21 век почти все люди нашей планеты имеют доступ к интернету и активное этим пользуются но они забывают что пользуются им почти круглосуточно от просмотра погоды утром да переписывались в социальных сетях вечером вместо того чтобы писать реферат от руки современный школьник просто-напросто его скачает люде по интернету уже ищут работу платят за жкх участвует во всех акциях и наконец большая часть людей просто развлекается проводя время в играх в чатах смотреть видео фильмы сериалы и много всего другого а есть ли жизнь без интернета как бы повел себя современный человек не будет интернета без интернета человек может совершить убийство если у него забрать также телефон 14% людей уверены что попали бы в депрессию а 2% жителей на нашей земле увидели единственным решением покончить жизнь самоубийством так как по их мнению их жизнь стала бы слишком серой помимо лишение привычных для нас развлечений сильно пострадал бы мир бизнеса электронная почта удобства который уже кажется единственным стала бы в 1 части недоступной документы письма и договора пришлось бы отправлять по факсу или обычной почтой отсутствие социальных сетей бы к потере связи с далекими родственниками старыми друзьями интернет знакомыми нам пришлось бы чаще общаться к использованию телефона

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк/столбцов в матрице: ');   writeln('*** исходная матрица ***');   var a: =matrrandom(n,n,1,50);   a.println(3); writeln(3*a.colcount*'-');   // начало расчетов   var s: =0;   for var i: =0 to n-1 do s+=a[i,n-i-1];   writeln('1: s=',s);   write('2: суммы построчно: '); a.rows.select(row-> row.sum).println;   write('3: произведение элементов: ');   a.elementsbyrow.aggregate(biginteger(,q)-> p*q).println;   var p: biginteger: =1;   for var i: =0 to n-1 do p*=a[i,i];   writeln('4: п=',p); end.