Задать вопрос!

Задать вопрос!

Все категории

2 года назад

5

Хелп! нужно решить 2 номер

Хелп! нужно решить 2 номер

Информатика

1 ответ:

Лея555 [18]2 года назад

0 0

(93+57):15=150:15=10

Читайте также

Пират положил в сундук некоторое количество золотых монет. На второй год он вынул из сундука сколько-то монет. Начиная с третьег

ZloyDeD [6]

1. Вопрос задан коряво. Задача эта называется сундук Билли Бонса, ряд
<span>5,2,7,9,16,25 - это пример последовательности числа монет в сундуке, если в первый год монет пять, во второй - две.
2. Вот программка на АБС-Паскале, не оптимальная по ряду моментов, но рабочая. Из особенностей - выводит решения только если если во второй год монет становится меньше, чем в первый. Существуют решения при нулевом количестве взятых во второй год монет и при отрицательном. Если такие решения нужны - то условие в "if (j div n) < i then" надо изменить
Программка неэффективна, вместо решения диофантова уравнения по Евклиду используется тупой перебор, но по условиям он ограничен, и его можно себе позволить.
Выводятся также все решения, если нужно одно - прерывайте цикл по нахождению первого.
---------------------
program БиллиБонс;
//
const
maxYear = 20;
maxMoney = 32767;

var
a, b: array [1..maxYear] of integer;
m, n, x, y: integer;
f1, f2: text;
s: string;

begin

assign(f1, 'input.txt');   // устанавливаем связь между файловой переменной и путем к файлу
reset(f1); // открытие на чтение файла
read(f1, x);
read(f1, y);
close(f1); // закрываем файл

// Заполняем массив коэффициентов
a[1] := 1;b[1] := 0;
a[2] := 0;b[2] := 1;
for var i := 3 to maxYear do
begin
    a[i] := a[i - 1] + a[i - 2];
    b[i] := b[i - 1] + b[i - 2];
end;

m := a[x];n := b[x];
// решаем уравнение m*s1 + n*s2 = y
// m,n - коэффициенты, зависящие от номера года
// s1,s2 - монет в первый и второй годы

assign(f2, 'output.txt');   // устанавливаем связь между файловой переменной и путем к файлу
rewrite(f2); // создание (перезапись) файла

for var i := 1 to y div m do
// цикл по s1
begin
    var j := y - m * i;
    if j mod n = 0 then
      if (j div n) < i then
      begin
        writeln('s1=', i, ' s2=', j div n);
        writeln(f2, i, ' ', j div n); // вывод данных в файл
      end;
end;

close(f2); // закрываем файл
end.
</span>

0 0

4 года назад

Упростить логическое выражение: 1) (А или В или С) и (А или не В или С) 2) ((Х и не У и Z) или (Х и не(У и Z)) или (Х и У и Z) и

MMAfighter [5]

<span>1) (А или В или С) и (А или не В или С) = А или С</span>

0 0

4 года назад

Напишите программу, которая генерирует целочисленный массив, состоящий из 40 элементов в диапазоне от 0 до 120, подсчитывает кол

МаксКр

===== PascalABC.NET =====

1. Короткое, внешне изящное, но крайне неэффективное решение, поскольку массив просматривается ПЯТЬ раз.

begin

var a := ArrRandom(40, 0, 120);

a.Println;

Println('Элементов, равных 30:', a.Count(p -> p = 30));

Println('Сумма элементов:', a.Sum);

Println('Среднее арифметическое элементов:', a.Average);

var (imax, imin) := (a.IndexMax, a.IndexMin);

Println('Максимальный элемент №', imax + 1, '=', a[imax]);

Println('Минимальный элемент №', imin + 1, '=', a[imin])

end.

2. Более длинное решение, но с ОДНИМ просмотром массива и поэтому эффективное.

begin

var a := ArrRandom(40, 0, 120);

a.Println;

var (k, s, imax, imin) := (0, 0, 0, 0);

for var i := 0 to a.High do

begin

if a[i] = 30 then

Inc(k);

s += a[i];

if a[i] > a[imax] then

imax := i

else if a[i] < a[imin] then

imin := i

end;

Println('Элементов, равных 30:', k);

Println('Сумма элементов:', s);

Println('Среднее арифметическое элементов:', s / 40);

Println('Максимальный элемент №', imax + 1, '=', a[imax]);

Println('Минимальный элемент №', imin + 1, '=', a[imin])

end.

0 0

4 года назад

Решите срочно!! Пожалу1ста не только ответв.

пашкина [14]

Ответ в прилагаемом фото.

0 0

4 года назад

В Pascal ABC. Найдите радиус окружности если известна площадь окружности.

Kasper

$\displaystyle S= \pi R^2 \to R= \sqrt{ \frac{S}{\pi} }$

var
s:real;
begin
Write('Площадь окружности: '); Read(s);
Writeln('Радиус окружности равен ',sqrt(s/Pi):0:5)
end.

0 0

3 года назад