4. в таблице представлены сведения о животных зоопарка.
18
25
название животного | место обитания | масса тела | продолжительность жизни
60
африка
трубкозуб
азия
тапир
200
30
утконос
австралия
10
2
1000
жираф
африка
| 250
30
африка
окапи
капибара
америка
кабарга
азия
15
10
азия
росомаха
10
12
коала
австралия
50
10
20
сколько записей в таблице удовлетворяют условию:
(продолжительность жизни > 10) или (место обитания = «америка»)? ​

 

 

 

крик

 

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

program xxx;

    var i, s : integer;

begin

  s: =0;

  for i: = 10 to 99 do

      if i mod 5 = 0 then s: =s+i;

  writeln('сумма двузначных чисел, кратных 5 =', s);

  readln

end.

//pascalabc.net //версия 3.3, сборка 1634 (14.02.2018) begin   var (cost, t, k) : = (arr(15, 70, 125, 230, 440), arr(1, 5, 10, 20, 60), new integer[5]);   var n : = readinteger('n-> ');   for var i : = 4 downto 0 do   begin     k[i] : = n div t[i]; n : = n mod t[i];   end;     if k[0] * cost[0] > = cost[1] then begin k[0] : = 0; inc(k[1]); end;   if k[0] * cost[0] + k[1] * cost[1] > = cost[2] then    begin     k[0] : = 0; k[1] : = 0; inc(k[2]);     end;   if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] > = cost[3] then    begin     k[0] : = 0; k[1] : = 0; k[2] : = 0; inc(k[3]);   end;   if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] + k[3] * cost[3] > = cost[4] then    begin     k[0] : = 0; k[1] : = 0; k[2] : = 0; k[3] : = 0; inc(k[4]);     end;       for var i : = 0 to 4 do writelnformat('{0} билет(ов)- {1} штук(а)', t[i], k[i]); end. пример(1): n-> 37 1 билет(ов)- 0 штук(а) 5 билет(ов)- 0 штук(а) 10 билет(ов)- 0 штук(а) 20 билет(ов)- 0 штук(а) 60 билет(ов)- 1 штук(а) пример(2): n-> 35 1 билет(ов)- 0 штук(а) 5 билет(ов)- 1 штук(а) 10 билет(ов)- 1 штук(а) 20 билет(ов)- 1 штук(а) 60 билет(ов)- 0 штук(а)