Драконв пещере у реки поселился огнедышащий дракон. всех, кто пытался его прогнать, он прогонял сам, полыхая на них огнем. количество полыханий зависело от того, на кого полыхать. на царевича дракон полыхал 5 раз, на королевича – 4 раза, на простого рыцаря – 3 раза.за первые сто лет дракона пытались прогнать 2 царевича, 3 королевича и 5 простых рыцарей. за второе столетие на него покушались 3 царевича, 2 королевича и 7 простых рыцарей. за третий век дракона беспокоили 7 царевичей, 5 королевичей и 6 простых рыцарей. за следующее столетие дракону пришлось иметь дело с 3 царевичами, 6 королевичами и 10 простыми рыцарями. после чего дракона, в конце концов, оставили в покое и объявили гору, на которой он жил, заповедником для охраны редких видов животных.сколько человек пытались прогнать дракона за каждое из столетий в отдельности и за все четыре века вместе? сколько среди них было царевичей, сколько королевичей и сколько простых рыцарей? сколько раз дракону пришлось полыхать на них огнем в течение каждого века и за все четыре столетия вместе? сколько полыханий досталось царевичам, сколько королевичам и сколько простым рыцарям? построить электронную таблицу
Ответы
Вариант в excel 2003. лист защищен без пароля, чтобы случайно не повредить формулы. формулы отображаются в строке формул.
Пусть данные о температуре хранятся в массиве тemp и количество данных (для определенности равно числу дней в месяце n=30) program temperatura; const n=30; type mas = array [1..n] of integer; var a: mas; i, max, maxind, min, minind: integer; begin for i: =1 to n do a[i]: =-20+random(40); {заполняем массив случайными числами} { а сюда вставляем по очереди блоки } readln; end. {блок: : дни с нулевой} for i: =1 to n do if a[i] =0 tnen writeln(' day number ' ,i ); {блок: дни с maxtemp и mintemp} max: =a[1]; min: =a[1]; maxind: =1; minind: =1; for i: =2 to n do begin if a[i]> max then begin max: =a[i]; maxind: =i end; if a[i]< min then begin min: =a[i]; minind: =i; end; end; writeln('max=', max, ' maxind=' , maxind); writeln('min=', min, ' minind=' , minind); readln; end. {ну а последний блок (о днях с одинаковой температурой) попробуй написать сам}
{1} type mat = arrsay [1..3, 1..4] of integer; var i: integer; a: mas; begin for i: =1 to 3 do begin for j: =1 to 4 do write (i: 4); writeln; end; readln; end. { 2} type mat = arrsay [1..3, 1..4] of integer; var i: integer; a: mas; begin for i: =1 to 3 do begin for j: =1 to 4 do write (j: 4); writeln; end; readln; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос: