Помогите мне пожалуйста! Очень нужно вопрос жизни или смерти. Умоляю помогите!

Question

Помогите мне пожалуйста! Очень нужно вопрос жизни или смерти. Умоляю помогите!

---

Comments

Паскаль?

---

вче четыре задачи?

---

Одну из них

---

Пожалуйста,если можно побыстрее!

---

Да это Pascal

---

Вы меня спасли,огромное спасибо

---

готово

Answer 1

// 4
var a,b,c:integer;
num:byte;
begin
readln(a, b, c);

num := 1;
if (a=b) or (b=c) or (a=c) then
num :=2
else
if (a = b) and (b = c) then
num:=3;

writeln('Одинаковых чисел: ', num);
end.

Comments

4 задание

---

Спасибо

---

спс что был рядом помогу иму крабу

Answer 2

1.
Program TuKpa6;varx:real;BEGINwriteln('BBeguTe x');readln(x);writeln('|x| = ',abs(x));END.

2.
Program TuKpa6;varx:real;BEGINwriteln('BBeguTe x');readln(x);if x<0 then  begin    writeln(-1);  endelse if x=0 then  begin    writeln(0);  endelse  begin    writeln(1);  end;END.<br>
3.
Program TuKpa6;varx,y,sum:integer;BEGINwriteln('BBeguTe nepBoe 4ucJlo');readln(x);writeln('BBeguTe BTopoe');readln(y);sum:=0;if not (odd(x)) then  begin    sum:=sum+1;  end;if not (odd(y)) then  begin    sum:=sum+1;  end;writeln('cyMMa 4eTHbiIIx 4uceJl = ',sum);END.

4.
Program TuKpa6;varx,y,z,sum:integer;BEGINwriteln('BBeguTe nepBoe 4ucJlo');readln(x);writeln('BBeguTe BTopoe');readln(y);writeln('BBeguTe TpeTue');readln(z);sum:=0;if (x=y) and (x=z) then  begin    sum:=3;    writeln(sum, ' oguHakoBbIx');  endelse if (y=z) then  begin    sum:=2;    writeln(sum, ' oguHakoBbIx');  endelse  begin    writeln('HeT oguHakoBbIx');  end;END.