Напишите программу, пожалуйста.

Знания

Информатика

1 ответ:

kirill301298 [21]4 года назад

0 0

Ответ:

Если Python устроит, то примерно так:

S = 0

K = 0

A = 50

while A <= 57:

S = S + A

K = K + 5

A = A + 1

SR = 2 * S

print('SR = ' + str(SR) + ', ' + 'K = ' + str(K)

Объяснение:

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

Составьте программу, которая формирует массив из пятнадцати случайных целых чисел от -40 до 40 и увеличивает в 2 раза числа , кр

777Тимур777

Var
    a: array[1..100] of integer;
    i, n: integer;

begin
    {ввод массива}
    n := 15;

    writeln('Данные массива:');
    for i := 1 to n do
    begin
        a[i] := random(40 + 40) - 40;
        write(a[i], ' ');
    end;
    writeln();

    {изменение элементов}
    for i := 1 to n do
    begin
        if a[i] mod 5 = 0 then
            a[i] := 2 * a[i]
        else a[i] := a[i] - 2;
        write(a[i], ' ');
    end;
end.

0 0

4 года назад

информационное сообщение объемом 450 битов состоит из 150 символов. Каков информационный вес каждого символа этого сообщения?

Александр192

450 / 150 = 3 бита...

0 0

2 года назад

В магазине было шесть разных ящиков с гвоздями, массы ящиков 6,7,8,9,10,11 кг. Пять из них приобрели два покупателя, причем кажд

Lyshwe

6+7+8=21
11+10=21
остаётся 9
Ответ: 9

0 0

4 года назад

Составить программу, которая заполняет массив а [1..14] случайными целыми числами в диапазоне от 1 до 10, затем найти сумму элем

malika81 [28]

Var mass:array[1..14] of integer;
g,s,sum:integer;
begin
randomize;
for g:=1 to 14 do
begin
mass[g]:=random(10)+1;
if (mass[g] mod 2) = 0 then begin sum:=sum+mass[g]; s:=s+1; end;
writeln(mass[g]);
end;
writeln('сумма четных = '+sum);
writeln('количество нечетных в массиве = '+(14-s));
end.

0 0

3 года назад

Найдите значение переменной А после выполнения программы VAR A:INTEGER BEGIN A:=SQRT(16): END

Наталичка [49]

Sqrt(16) это 16 под корнем, получается ответ 4

0 0

1 год назад