Задача 5. Переведіть число 1010010(2) у десяткову систему числення Задача 7. Переведіть число 10110000101(2) у вісімкову систему числення (спочатку треба перевести число у десяткову, а тоді - у вісімкову). Задача 8. Переведіть число 1D5(16) у вісімкову систему числення (спочатку треба перевести число у десяткову, а тоді - у вісімкову). Задача 9. Переведіть число 2D5(16) у вісімкову систему числення (спочатку треба перевести число у десяткову, а тоді - у вісімкову). Задача 10. Переведіть число 25(8) у шістнадцяткову систему числення (спочатку треба перевести число у десяткову, а тоді - у шістнадцяткову

Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.

1г углеводы - 4,1 ккал

1 г жиров — 9,3 ккал

1 г белков — 4,2 ккал

Вычесления крайне простые,на пример возмем порцию картлофеля с маслом:

1.

От белков : 2,7г*4,2ккал/г=11.34ккал

От углеводов:39г*4.1ккал/г=159.9ккал

От жиров:7г*9.3ккал/г=65.1ккал

 

2.Общая калорийность блюда

11.34+159.9+65.1=236.34(кка)

 

3.Если в обед входят ещё какие блюда то сумируешь их энергетические ценности каждого компонента(б,угл,ж).

4.Суммируешь общую каллорийность блюд .

 

Здесь главное продумать структуру таблицы .