Составить программу, которая вводит 5 чисел последовательности и находит сумму всех чисел последовательности кратных 4 и оканчивающихся на 6

👇

Увидеть ответ

Ответ:

Даша333555

01.10.2022

var

a: array[1..5] of Integer;

i, sum: Integer;

begin

sum := 0;

for i := 1 to 5 do

Read(a[i]);

for i := 1 to 5 do

if (a[i] mod 4 = 0) and (a[i] mod 10 = 6) then

sum := sum + a[i];

WriteLn(sum)

end.

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

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

Ответ:

nikaa5522

01.10.2022

Program ex1;

const
n = 10;

var
a: array[1..n] of integer;
kOdd, e, i: integer;

begin
Randomize;
kOdd := 0;
write('Исходный массив ');
for i := 1 to n do
begin
    e := Random(20) + 1;
    a[i] := e;
    if (e mod 2) <> 0 then kOdd := kOdd + 1;
    write(e:3)
end;
writeln;
writeln('Количество нечетных элементов - ', kOdd)
end.

Тестовое решение:
Исходный массив   9 2 1 18 17 16 11 15 15 13
Количество нечетных элементов - 7

program ex2;

const
n = 10;

var
a: array[1..n] of integer;
kNeg, e, i: integer;

begin
Randomize;
kNeg := 0;
write('Исходный массив ');
for i := 1 to n do
begin
    e := Random(21) - 10;
    a[i] := e;
    if e < 0 then kNeg := kNeg + 1;
    write(e:4)
end;
writeln;
writeln('Количество отрицательных элементов - ', kNeg);
end.

Тестовое решение:
Исходный массив   -9 -1 -7 -4   8 -4   1 -1 -7   0
Количество отрицательных элементов - 7

program ex3;

const
n = 10;

var
a: array[1..n] of integer;
e, i: integer;

begin
Randomize;
write('Исходный массив ');
for i := 1 to n do
begin
    a[i] := Random(20);
    write(a[i]:4)
end;
writeln;
write('Результирующий массив ');
for i := 1 to n do
begin
    if a[i] mod 2 = 0 then a[i] := 1;
    write(a[i]:4)
end;
writeln;
end.

Тестовое решение:
Исходный массив    3 16   4   1 13   0 14 14 10 18
Результирующий массив    3   1   1   1 13   1   1   1   1   1

program ex4;

const
n = 10;

var
a: array[1..n] of integer;
e, i: integer;

begin
Randomize;
write('Исходный массив ');
for i := 1 to n do
begin
    a[i] := Random(11) + -5;
    write(a[i]:4)
end;
writeln;
write('Результирующий массив ');
for i := 1 to n do
begin
    if a[i] = 0 then a[i] := 1;
    write(a[i]:4)
end;
writeln;
end.

Тестовое решение:
Исходный массив    4 -5   0 -2 -4 -5 -2   0 -1 -5
Результирующий массив    4 -5   1 -2 -4 -5 -2   1 -1 -5

program ex5;

const
n = 10;

var
a: array[1..n] of integer;
e, i: integer;

begin
Randomize;
write('Исходный массив ');
for i := 1 to n do
begin
    a[i] := Random(10) + 1;
    write(a[i]:3)
end;
writeln;
write('Результирующий массив ');
for i := 1 to n do
begin
    if a[i] = 3 then a[i] := 5;
    write(a[i]:3)
end;
writeln;
end.

Тестовое решение:
Исходный массив   8 9 6 10 10 7 1 3 1 3
Результирующий массив   8 9 6 10 10 7 1 5 1 5

4,4(43 оценок)

Ответ:

Помощница07

01.10.2022

Если число 49 записывается как 121, значит первый остаток от деления равен 1, то есть основанием системы счисления является число, кратное 48.

121 имеет 3 разряда, значит основание однозначно меньше 10 и больше 2. Подходят 3, 4, 6, 8.

Учитывая, что в числе 121 три разряда, значит число 48 делилось всего три раза.
Число 8 не подойдет, т.к. 48/8=6, значит будет всего два деления.
Число 3 не подойдет, т.к. 48/3 = 16, 16/3=5 - то есть тут будет больше трёх знаков.
Число 4 не подойдет, т.к. 48/4=12, а 12 делится на 4 без остатка, но, судя по числу, во втором делении остаток должен быть равен 2.
Остаётся число 6. Проверим

49/6=8 |1
8/6 = 1 |2
1/6=0 |1

121(6)

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

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

Кулинария-и-гостеприимство

16.11.2022

Как собрать идеальный пляжный обед?...

Хобби-и-рукоделие

06.04.2022

Как разгладить мятую бумагу: простые методы и советы...

Образование-и-коммуникации

06.10.2021

Как решать кубические уравнения: подробное руководство...

27.06.2021