Информатика: Универсальный язык программирования пр**в*и*а*и*

Универсальный язык программирования пр**виаи

👇

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

Ответ:

mezhsaya

15.10.2020

Предположим, что первый свидетель соврал, что автобус - первый, и сказал правду, что маршрутка - вторая.
Тогда для третьего свидетеля - утверждение про автобус - ложь (так как вторым выехала маршрутка), значит третьим выехал легковой автомобиль.
Тогда оба утверждения второго свидетеля являются ложью (у него легковой автомобиль - четвёртый на перекрестке, грузовик - второй, в у нас получилось легковой автомобиль - третий, в маршрутка - вторая).
Получили противоречие. Значит, первый свидетель сказал правду, что автобус первый и соврал про маршрутку.
Тогда из утверждений третьего свидетеля следует, что легковой автомобиль - третий.
Из второго свидетеля следует, что грузовик - второй.
Тогда маршрутке остаётся четвёртое место.
ответ: АГЛМ

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

Ответ:

Губотрах

15.10.2020

// Задание 1
const
n = 100;

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

begin
for i := 1 to 15 do
begin
    write('a[', i, '] = ');readln(a[i]);
    if i mod 3 = 0 then s := s + a[i];
end;
writeln('Сумма элементов, индексы которых кратны 3 = ', s);
end.

Тестовое решение:
число элементов : 10
a[1] = 2
a[2] = 5
a[3] = 1
a[4] = 5
a[5] = 6
a[6] = 3
a[7] = 5
a[8] = 6
a[9] = 1
a[10] = 8
Сумма элементов, индексы которых кратны 3 = 5

// Задание 2
const
n = 100;

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

begin
for i := 1 to 15 do
begin
    a[i] := random(100);write(a[i]:4);
end;
writeln;
for i := 1 to 15 do
begin
    if i mod 2 = 0 then a[i] := a[i] * 2;
    write(a[i]:4);
end;
end.

Тестовое решение:
35 98 67 94 63 18 26 17   3   5   0 77 47 11 33
35 196 67 188 63 36 26 34   3 10   0 154 47 22 33

// Задание 3
const
m = 100;

var
a: array[1..m] of integer;
i, n, k, tmp: integer;

begin
write('число элементов : ');
readln(n);
for i := 1 to n do
begin
    write('a[', i, '] = ');readln(a[i]);
end;
repeat
    write('Введите к (k<>1 и k<>n)');
    readln(k);
    if (k = 1) or (k = n) then writeln('Ошибка, повторите ввод');
until (k <> 1) and (k <> n);
for i := 1 to n do write(a[i]:4);writeln;
tmp := a[k - 1];a[k - 1] := a[k + 1];a[k + 1] := tmp;
for i := 1 to n do write(a[i]:4);
end.

Тестовое решение:
число элементов : 6
a[1] = 2
a[2] = 7
a[3] = 3
a[4] = 8
a[5] = 9
a[6] = 1
Введите к (k<>1 и k<>n)4
   2   7   3   8   9   1
   2   7   9   8   3   1

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

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

Семейная-жизнь

11.11.2020

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

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

17.01.2023

Покраска чугуна: советы от профессионалов...

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

13.09.2022

Как легко и быстро спрягать испанский глагол hacer...

Стиль-и-уход-за-собой