Выполнить - 1)четверо друзей — дима, вадим, миша и юра — собрались в доме у миши. мальчики оживленно беседовали о том, как они провели лето.— ну, бобров, ты, наконец, научился плавать? — спросил вадим.— о, еще как, — ответил бобров, — могу теперь потягаться в плавании с тобой и димой.— посмотрите, какой я гербарий собрал, — сказал петров, прерывая разговор друзей, и достал из шкафа большую папку. всем, особенно лунину и диме, гербарий понравился. а симонов обещал показать товарищам собранную им коллекцию минералов. назовите имя и фамилию каждого мальчика. 2)в музыкальную группу приняли на работу трёх музыкантов: джона, смита и марка, умеющих играть на скрипке, флейте, барабанах, кларнете, гитаре и трубе. известно, что: смит самый высокий; играющий на скрипке меньше ростом играющего на флейте; играющий на скрипке и флейте и джон любят пиццу; когда между барабанщиком и трубачом возникает ссора, смит мирит их; джон не умеет играть ни на трубе, ни на гитаре. на каких инструментах играет каждый из музыкантов, если каждый владеет двумя инструментами?

👇

Ответ:

12unicorn12

16.08.2021

ответ только на первую задачу.
крестик в таблице это не подходящая фамилия.
Выполнить - 1)четверо друзей — дима, вадим, миша и юра — собрались в доме у миши. мальчики оживленно

Выполнить - 1)четверо друзей — дима, вадим, миша и юра — собрались в доме у миши. мальчики оживленно

4,7(63 оценок)

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

Ответ:

MARZHIVANKINA

16.08.2021

//PascalABC.Net 3.2
{1}
begin
var a:=readArrinteger('Вводите: ', readinteger('n ='));
write ('Ср. арифметическое: ', a.Average);
end.

{2}
begin
var a:=readarrinteger('Водите: ', readinteger('n ='));
var sum:=0;
for var i:=0 to length(a)-1 do if i.isodd then sum+=a[i];
write ('Сумма: ', sum);
end.

{3}
begin
var a:=readarrinteger('Вводите: ', readinteger('Кол-во элементов: '));
var otr:=0; var pol:=0;
for var i:=0 to length(a)-1 do if a[i]<0 then otr+=1 else pol+=1;
write('Массив: '); a.Println;
if otr=pol then write ('Отрицательных и положительных элементов равное кол-во') else
if otr>pol then write('Отрицательных больше на ', otr-pol) else
write ('Положительных больше на ', pol-otr);
end.

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

Ответ:

Noooo123456

16.08.2021

Будем суммировать все положительные числа, пока не встретится 0. Если полученная сумма сразу делится на 3, то нам повезло. Если нет, надо что-то делать - либо прибавлять отрицательные числа, либо вычитать положительные. Я не буду делать различия между ними - в любом случае надо вычитать модули чисел.
- Если сумма дает остаток 1, то надо вычесть или одно число с остатком 1, или два числа с остатком 2 (вычитать три или более числа нерационально: числа, делящиеся на 3, картину не портят; вычитание трёх чисел с одинаковым остатком не влияет на остаток суммы, а среди трёх чисел с остатком 1 или 2 всегда найдутся два одинаковых).
- Аналогично (с точностью до перестановки 1 и 2) поступаем, если сумма даёт остаток 2.
Если после этих всех ухищрений сумма стала отрицательной, просто выводим 0, как будто мы взяли только последний 0.

Код (PascalABC.NET 3.2)
begin
var sum := 0;
var mins := MatrFill(2, 2, MaxInt div 2);
var temp: integer;
repeat
temp := readinteger;
if temp > 0 then
sum := sum + temp;
temp := abs(temp);
var i := temp mod 3 - 1;
if i > -1 then
if temp < mins[i, 0] then
(mins[i, 0], mins[i, 1]) := (temp, mins[i, 0])
else if temp < mins[i, 1] then
mins[i, 1] := temp;
until temp = 0;
var i := sum mod 3 - 1;
if i > -1 then
sum := max(sum - mins[i, 0], sum - mins.Row((i + 1) mod 2).Sum);
writeln(max(sum, 0))
end.

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

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

Компьютеры-и-электроника

14.11.2020

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

Здоровье

24.03.2021

Потница: простые способы лечения и профилактика...

Дом-и-сад

13.05.2022

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

Питомцы-и-животные