Продумайте структуру для решения следующей : в пещере у реки поселился огнедышащий дракон по имени сергей михайлович. всех, кто пытался его прогнать, он прогонял сам, полыхая на них огнем. количество полыханий зависело от того, на кого надо полыхать. на царевича дракон полыхал 5 раз, на королевича — 4 раза, на простого рыцаря - 3. за первые сто лет дракона пытались прогнать 2 царевича, 3 королевича и 5 простых рыцарей. за второе столетие на него покушались 3 царевича, 2 королевича и 7 простых рыцарей. за третий век дракона беспокоили 7 царевичей, 5 королевичей и 6 простых рыцарей. за следующее столетие сергею михайловичу пришлось иметь дело с 3 царевичами, 6 королевичами и 10 простыми рыцарями. после чего дракона, в конце концов, оставили в покое и объявили гору, на которой он жил, заповедником для охраны редких видов животных. сколько человек пытались прогнать дракона за каждое из столетий в отдельности и за все 4 века вместе? сколько среди них было царевичей, сколько королевичей и сколько простых рыцарей? сколько раз дракону пришлось полыхать на них огнем в течение каждого века и за все 4 столетия вместе? сколько полыханий досталось царевичам, сколько королевичам и сколько простым рыцарям? введите необходимые формулы и проведите по ним расчеты.

👇

Ответ:

Никитар456

03.10.2022

Его пыталось прогнать 15 царевичов 15 королевич и 28 простых рыцарей
а пылыл огнем он на царевичов 75 раз на королевичов 60 раз а на рыцарей 84 раза

4,6(100 оценок)

Открыть все ответы

Ответ:

tiger071

03.10.2022

// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Число элементов в массиве:');
var a:=ArrRandom(n,1,99);
Write('Исходный массив: '); a.Println;
var n1,n2:integer;
Write('Границы номеров элементов для суммы: '); Read(n1,n2);
if n1>n2 then Swap(n1,n2);
if (n1<1) or (n2>n) then Writeln('Границы выходят за пределы массива')
else Writeln('S=',a[n1-1:n2].Sum)
end.

Пример
Число элементов в массиве: 15
Исходный массив: 89 82 45 28 88 68 34 19 35 26 67 43 71 96 66
Границы номеров элементов для суммы: 4 9
S=272

4,5(63 оценок)

Ответ:

nurayhasanova2oztngy

03.10.2022

//PascalABC.Net 3.2
var m, n: integer;
a: array of array of integer;

procedure zam(a1, b1: integer);
begin
for var i:=0 to n-1 do
begin
a[i][a1]+=a[i][b1];
a[i][b1] :=a[i][a1]-a[i][b1];
a[i][a1]-=a[i][b1];
end;
end;

procedure sortSelekt ();
var max: integer;
begin
for var i:=0 to m-1 do
begin
max:=i;
for var j:=i to m-1 do
if a[n-1][max]<a[n-1][j] then max:=j;
if i<>max then zam (i, max);
end;
end;

procedure printMAS ();
begin
for var i:=0 to n-1 do
begin
for var j:=0 to m-1 do write (a[i][j]:4);
writeln;
end;
end;

begin
n:=readinteger('n =');
m:=readinteger('m =');
setLength (a, n);
for var i:=0 to n-1 do
a[i]:=arrRandom (m, -99, 99);

writeln ('Первоначальная случайная матрица: ');
printMAS();
sortSelekt ();
writeln ('Измененная матрица: ');
printMAS();
end.

4,5(69 оценок)

Это интересно:

Искусство-и-развлечения

05.05.2022

Как сделать костюм единорога: пошаговая инструкция...

Компьютеры-и-электроника

20.11.2022

Как быстро установить Qt SDK на Ubuntu Linux:...

02.09.2021

Как пережить плохую оценку: навыки управления эмоциями и продуктивной работы на ошибке...

Финансы-и-бизнес

13.02.2022