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

Синформатикой дайте развернутый ответ в первом туре школьного конкурса «эрудит» в четверку лучших вошли: дима, катя, миша и нина. и конечно, болельщики высказывали свои предположения о распределении мест во втором, финальном туре. один считал, что первым будет дима, а миша будет вторым. другой болельщик выразил надежду на то, что катя займет четвертое место, а второе место достанется нине. третий же был уверен в том, что катя займет третье место, а на втором месте будет дима. в результате оказалось, что каждый из болельщиков был прав только в одном из своих прогнозов. какие места заняли дима, катя, миша, нина

👇
Ответ:
умно55567
умно55567
09.05.2021
1 2 3 4 
д м
   н    к
   д к 
так как нина и миша лишь в одном ряду, то выбираем из них, если взять, что миша на 2 месте, тогда остальные ошиблись в этом месте, а в другом угадали, у нас тогда получается , что катя находиться и на 3 и на 4 месте.( это не подходит) Теперь смотрим нину, если взять это за правду, то значит то, что катя не будет на 4 месте , и все остальные претенденты на 2 место ложные. Тогда получается , что дима на 1 месте, нина на 2, катя на 3, а миша на 4)  
4,5(12 оценок)
Открыть все ответы
Ответ:
XxXBulykXxX
XxXBulykXxX
09.05.2021
Program z1; 
Var i,n,a,b,c:integer;     
 m: array [1..1000] of integer;
Begin 
write('Введите кол-во чисел - '); 
readln(n);   
randomize;   
a:=0;   b:=0;   c:=0; 
 for i:=1 to n do 
begin   
m[i]:=random(100)-50;   
 write (m[i],' ');  end;    for i:=1 to n do    if (m[i]=0) then a:=a+1;      for i:=1 to n do    if (m[i]>0) then b:=b+1;      for i:=1 to n do    if (m[i]<0) then c:=c+1;  writeln;  writeln ('Кол-во нулей - ',a);  writeln ('Кол-во положительных чисел - ',b);  writeln ('Кол-во отрицательных чисел - ',c);End.
4,8(46 оценок)
Ответ:
КРИЛЛ2000
КРИЛЛ2000
09.05.2021
Program z1;  Var i,n,a,b,c:integer;      m: array [1..1000] of integer;Begin  write('Введите кол-во чисел - ');  readln(n);   randomize;   a:=0;   b:=0;   c:=0;  for i:=1 to n do  begin    m[i]:=random(100)-50;    write (m[i],' ');  end;    for i:=1 to n do    if (m[i]=0) then a:=a+1;      for i:=1 to n do    if (m[i]>0) then b:=b+1;      for i:=1 to n do    if (m[i]<0) then c:=c+1;  writeln;  writeln ('Кол-во нулей - ',a);  writeln ('Кол-во положительных чисел - ',b);  writeln ('Кол-во отрицательных чисел - ',c);End.
4,6(84 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ