Итак!Решите Загадку по Among Us! В столовой было 6 персонажей.
Это красный, синий, жёлтый, фиолетовый,зелёный и оранжевый.
Спустя 5 минут после начала игры убили жёлтого.
Оранжевый сказал:Я был в администрации и делал это чёртово задание с карточкой!
Зелёный сказал:,А я был на камерах,мне кажется что это фиолетовый предатель!
Фиолетовый сказал:Всмысле!?Я был в Реакторе,я бы мог тебя убить ведь я видел что камера мигала красненьким цветом!
А синий и красный сказали что они оба проходили задание с починкой в щитах и красный видел как синий делал задание в щитах,а красный делал задание при синем.
Оранжевый сразу вскрикнул:это Красный и Синий (их кикнули,и они оба оказались предателями)
Вопрос:Как оранжевый понял что они предатели!?

👇

Ответ:

АняЕнот

10.07.2022

Объяснение:

Я так думаю, что они оба типа начали друг друга защищать и оранжевый понял что они предатели(кстати, может и не в тему, та хотя в тему, но у меня на аве желтый тусуется:))

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

Ответ:

sadlyuda

10.07.2022

ответ: первое красный всегда обычно предатель) потом они были вместе и отгаваривались что они не причем ну а оранжевый карочку точно долго делать потому что если пару раз не зделать задание с картокоой то тебя затягивает и ты бомбишь ино и выполнить хотишь его ну а зеленый и фиолетовый зеленый не видил фиолетового так как он был в реакторе а тот был на камерах

Объяснение: ну вобщем можно по логике и без обьяснеия понять

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

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

Ответ:

noname0002

10.07.2022

uses graphABC;
var xk: integer;
procedure Body (xx, yy: integer);
procedure Leg(x,y: integer);
var i: integer;
begin setpenwidth(3);
setpencolor(clwhite);
for i:=x-30 to x+30 do line(x,y-60,i,y);
setpencolor(clblack);
line(x-30,y,x,y-60);
line(x,y-60,x+30,y);
line(x-30,y,x+30,y);
floodfill(x,y-10,clblack);
end;
var s,n: integer;
begin setpenwidth(3);
setbrushcolor(clblack);
circle(xx-115,yy-100,20);
setbrushcolor(clwhite);
rectangle(xx,yy-10,xx+150,yy+130);
ellipse(xx-120,yy-140,xx+50,yy);
if xx mod 50<25 then
begin Leg(xx+20,yy+130);
Leg(xx+130,yy+150);
end
else
begin Leg(xx+20,yy+150);
Leg(xx+130,yy+130);
end;
line(xx-50,yy-5,xx-60,yy+50);
line(xx-60,yy+50,xx-100,yy+10);
line(xx-50,yy-5,xx-100,yy+10);
line(xx+110,yy-50,xx+150,yy-10);
line(xx+110,yy-50,xx+170,yy-60);
line(xx+150,yy-10,xx+170,yy-60);
floodfill(xx+130,yy-40,clblack);
line(xx-10,yy-150,xx+10,yy-100);
line(xx+10,yy-100,xx+40,yy-140);
line(xx-10,yy-150,xx+40,yy-140);
floodfill(xx+10,yy-120,clblack);
floodfill(xx+10,yy-140,clblack);
setpenwidth(1);
circle(xx-25,yy-100,25);
setpenwidth(7);
circle(xx-25,yy-110,8);
end;
procedure Miska;
begin setpenwidth(1);
setbrushcolor(clblue);
ellipse(10,300,110,350);
setbrushcolor(clskyblue);
ellipse(5,290,115,340);
setbrushcolor(clbrown);
ellipse(20,300,100,330);
end;
procedure Zv(x,y: integer);
begin setbrushcolor(clyellow);
circle(x,y,10);
setbrushcolor(clwhite);
circle(x-20,y,13);
circle(x+20,y,13);
circle(x,y-20,13);
circle(x,y+20,13);
end;
begin setwindowsize(500,400);
lockdrawing;
for xk:=500 downto 200 do begin clearwindow;
Zv(50,50);
Zv(380,20);
Zv(70,220);
Zv(170,320);
Body (xk,200);
Miska;
sleep(10);
redraw;
end;
end.

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

Ответ:

timcherkasov07p02k8v

10.07.2022

function Gcd(a,b: longint): longint;
{ Нахождение НОД }
var
i: longint;
begin
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
gcd := a
end;

procedure ShortFraction(var m,n:longint);
var
k:longint;
begin
k:=Gcd(m,n);
m:=m div k; n:=n div k
end;

var
a,b:longint;
begin
Write('Введите числитель и знаменатель дроби: '); Readln(a,b);
ShortFraction(a,b);
Writeln('Дробь после сокращения равна ',a,'/',b)
end.

Тестовое решение:
Введите числитель и знаменатель дроби: 25 15
Дробь после сокращения равна 5/3

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

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

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

26.04.2020

Как изменить одежду сима в The Sims 2: простые шаги...

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

01.08.2020

Как закрывать приложения на iPhone, iPad и iPod Touch: инструкция для начинающих...

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

02.02.2020

Как показать почтение умершему знакомому...

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