Составить план к тексту:
Владимир Иванович Вернадский (1863
1945) - великий учёный, академик, основа
положник многих наук о Земле. Он ми
путешествовал. Его увлекала жизнь прирол
он любовался красотой леса и нагромождение
ями скал, загадочным ночным небом
Вернадский видел много разных городов, за-
водов — «вторую природу», созданную рука-
ми человека.
Большое впечатление произвела на него
Северная Америка, ее огромные города и раз-
витая промышленность. Однажды он побывал
в тех местах, где добывали редкий металл —
никель. Картина, представшая перед ним,
произвела тяжелое впечатление. Люди буквально истребляли лес,
вырубали все подряд, не оставляя даже маленького деревца для
размножения самосевом красивейших канадских сосен. Там, где
раньше игумели леса, Владимир Иванович увидел бесплодные черные
равнины. Одни лишь силуэты высоких труб дымили день и ночь -
шла переработка руды.
Наблюдая все это, Вернадский задумался о мощном воздей-
ствии человека на биосферу - ясивую оболочку Земли, в резуль-
тате которого искажаются ее свойства, её природный состав.
Ученый впервые осознал, что идет гигантский процесс изменения
природы под влиянием человеческого разума. Своими научными
открытиями он заставил людей задуматься об отрицательном вли-
янии их деятельности на окружающую среду.​

я думаю,что возможно.

Объяснение:

но,это будет очень долго,не очень выгодно и не очень удобно, в плане стариков или детей. Старики просто не смогут привыкнуть к такой обстановке, им будет сложно,что то понять. Что касается детей, я считаю это просто ужасно. Дети не смогут ощутить то самое, чувство,когда "выпрашиваешь у мамы мелочь",и бежишь в соседний магазин,за какой нибудь дешевой сладостью. Я понимаю, что время не стоит на месте и технологии движутся вперед, но лучше полностью не переходить на электронный вариант денег, это не всем выгодно, тем же самым бездомным это вообще не выгодно.

уже писал, но попал в баг(

так вот. в паскале это будет так:

1)var a,b,c: integer;

begin

          readln(a,b);

          if a div 2 =0 then c: =(a+b)*(a+b)*(a+b);

                              else c: =a*a*a+b*b*b;

          writeln(c);

end.

2)var a,b,c: integer;

          d: real;

begin

          readln(a,b,c);

          if (a< 0) or (b< 0) or (c< 0) then d: =abs(a+b+c)

                                                        else d: =sqrt(a+b+c);

          writeln(d: 0: 2);

end.

3)var a,b,c: integer;

begin

          readln(a,b,c);

          if (a*b*c< 0) then begin a: =a*a; b: =b*b; c: =c*c; end

                                else begin a: =abs(a); b: =abs(b); c: =abs(c); end;

          writeln( a, ' ', b, ' ', c);

end.

вот так вот.