М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Vartego
Vartego
23.02.2022 10:28 •  Информатика

Втрёх седьмых классах 70 . из них 27 занимаются в драмкружке, 32 поют в хоре, 22 увлекаются спортом. в драмкружке - 8 спортсменов; 3 спортсмена посещают и драмкружок, и хор. сколько не поют в хоре, не увлекаются спортом и сколько занято только спортом?

👇
Ответ:
andrejpyankoff
andrejpyankoff
23.02.2022
Не поют в хоре: 70-32=38Не увлекаются спортом: 70-22=48Не занимаются в драмкружке: 70-27=43Если имелось ввиду общее количество праздно шатающихся молодых людей, то тогда задача решается таблицей и методом исключения:1.Драмкружок и хор - 10 общих человек, значит: (27+32)-10=49 (общее количество занятых в хоре и драмкружке)2.Спортсмены в кружке и хоре: (6+8)-3=11, прибавляем к №1 спортсменов и вычитаем общих: (49+22)-11=603.Ничем не занимается: 70-60=10 человек 
4,5(48 оценок)
Открыть все ответы
Ответ:
котик009
котик009
23.02.2022
У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer; 
        i: integer;
begin 
ClrScr; 
Randomize; 
WriteLn ( ' Massiv I: '); 
for i:=1 to n do 
    begin     
          A[i] := 1+random(n);  
          Write (A[i]:4); 
    end; 
WriteLn; WriteLn ( ' Massiv II: '); 
for i:=1 to n do 
    begin   
           if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];     
           Write (A[i]:4); 
   end;
ReadLn;
end.     
Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1
Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1
4,6(66 оценок)
Ответ:
tyon
tyon
23.02.2022
Program q1;
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.
4,5(1 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ