1. Рассчитать графу Стоимость, р используя курс доллара как абсолютный адрес (формула) 2. Рассчитать графу Стоимость, Евро используя курс доллара и курс Евро как абсолютные адреса (формула)
3. Рассчитать графу Доля в общей стоимости используя стоимость, р как абсолютный адрес (формула)

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

var a,b,s: integer; begin readln(a); while a> =10 do begin b: =a mod 10; s: =s+sqr(b); a: =a div 10; end; a: =a*a; s: =s+a; writeln(s); readln; end.в s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!

44100*24*60*2=127008000 бит = 15 мбайт

4k+2m+1=41

k+m+1=15

4k+2m=40

k+m=14

2k+m=20

-k-m=-14

k=6