Вычисление степени с натуральным показателем можно задать рекурсивно: x0=1,xk=x⋅xk−1,k>0. Если x=4,k=3, то xk=

Составить программу на Паскале с помощью цикла с неизвестным числом повторений. "На первый же день появления красавца Васи в кол

Rednatka

Var k,n:integer;
begin
n:=1;
k:=2;
while k<=45 do
begin
n:=n+1;
k:=k*2;
if n mod 7 = 0 then k:=k-23;
end;
writeln('n = ',n,' k = ',k);
end.

Результат:
n = 6 k = 64

0 0

4 года назад

как называется собственная(внутренняя) память человека?

Ирина Анатольевна 2 [1]

Оперативная память.

0 0

1 год назад

Стоимость проезда в маршрутке – 2грн. Количество сидячих мест – 20. Количество стоячих – 10. За день 50% поездок маршрутка полно

Lerka love

Решение прикрепил скрином, дальше идут объяснения.

Переменные:

count - кол-во поездок.

gas_price - цена за бензин.

gas_rashod - расход бензина.

distance - дистанция одной поездки.

sum - конечная сумма.

Работа с переменными:

Для начала пользователь все их заполняет (кроме sum)

Потом мы считаем всю прибыль (без учёта расхода).

Как считаем?

Мы знаем, что 50% поездок маршрутка полная, то-есть за один проход он получает 60 грн за один проход. Тоесть всё что нам нужно, умножить стоимость билета на ко-во мест (2*30) а потом это умножить на 50% наших проходов, что-бы найти 50% проходов нужно кол-во проходов умножить на 0.5.
Формула - 2*30*(кол-во поездок*0.5)

Далее у нас 30% поездок заполнены только сидячие места,

Соответственно формула - 2*20*(кол-во поездок*0.3)

Ну и 20% половина сидячих мест.
Формула - 2*10*(кол-во поездок*0.2)

Всё, прибыль мы узнали, теперь нам нужно от неё отнять расходы на бензин, что-бы узнать расходы мы применяем формулу - расход/100*цену бензина*всю дистанцию. (что-бы найти всю дистанцию нужно умножить дистанцию на кол-во проходов).

Ну а теперь от прибыли отнимаем расходы на бензин и получаем наш результат.

0 0

4 года назад

Дан массив из 10 элементов ,массив вводится с клавиатуры . найти произведение элементов кратных 5

Ольга Николаевна ... [10.9K]

Ответ в картинке, всего хорошего.

0 0

4 года назад

Вывести на экран номер всех счастливых билетов и подсчитать сколько их? В чем ошибка?var a,b,c,d,f,e,n:longint; k:real;begink:=0

RusActors

Var
    i1, i2, i3, i4, i5, i6: byte;
    k: Longint;

begin
    for i1 := 0 to 9 do
        for i2 := 0 to 9 do
            for i3 := 0 to 9 do
                for i4 := 0 to 9 do
                    for i5 := 0 to 9 do
                        for i6 := 0 to 9 do
                            if i1 + i2 + i3 = i4 + i5 + i6 then begin
                                Writeln(i1, i2, i3, i4, i5, i6);
                                k := k + 1;
                            end;
    writeln(k);
end.

var
    money: array[1..7]of integer;
    count: array[1..7]of integer;
    s, i: integer;

begin
    money[1] := 1;
    money[2] := 2;
    money[3] := 5;
    money[4] := 10;
    money[5] := 50;
    money[6] := 100;
    money[7] := 500;

    write('s = ');
    readln(s);

    i := 7;
    repeat
        if s >= money[i] then begin
            s := s - money[i];
            count[i] := count[i] + 1;
        end
        else i := i - 1;
    until s <= 0;

    for i := 7 downto 1 do
        if count[i] > 0 then
            writeln(money[i], ' p. = ', count[i], ' шт.')
end.

0 0

4 года назад