Найти три натуральных числа x, y,z удовлетворяющих условию 15x+20y+30z=270. решить с циклом с параметром.

{{15x+20y+30z=270} var x,y,z, y1,x1: integer; begin   x1: =270 div 15;   for x: =1 to x1 do   begin       y1: =(270-15*x) div 20;       for y: =1 to y1 do         begin               z: =(270-15*x-20*y) div 30;               if 1(5*x+20*y+30*z=270)  and (z< > 0) then               writeln(x: 5,y: 5,z: 5,'proverka',15*x+20*y+30*z=270);           end;     end; end. ответ       2      3      6proverkatrue       2      6      4proverkatrue       2      9      2proverkatrue       4      3      5proverkatrue       4      6      3proverkatrue       4      9      1proverkatrue       6      3      4proverkatrue       6      6      2proverkatrue       8      3      3proverkatrue       8      6      1proverkatrue     10      3      2proverkatrue     12      3      1proverkatrue проверку можно убрать. используем два цикла для перебора, а z -вычисляем

Разделим обе части уравнения на 5 и получим 3x+4y+6z=54 var   x,y,z: integer; begin   for z: =1 to 9 do       for y: =1 to (51-z) div 4 do           for x: =1 to (54-z-y) div 3 do               if 3*x+4*y+6*z=54 then writeln(x,' ',y,' ',z) end. тестовое решение (тройки коэффициентов x,y,z) 12 3 1 8 6 1 4 9 1 10 3 2 6 6 2 2 9 2 8 3 3 4 6 3 6 3 4 2 6 4 4 3 5 2 3 6

x - информационный вес одного символа

n - мощность алфавита (кол-во символов)

 

размер содержащейся в тексте информации находим по формуле:  

 

k - кол-во символов в тексте 

 

амазонка 

 

- один символ несет 8 битов (1 байт)

- байт в письме амазонки

 

омега:  

 

один символ несет 7 битов

байт в письме омеги 

 

640*480=307200

256 цветов кодируется 1-м байтом

307200 байт

512кбайт=524288 байт

не более 1 страницы