Question

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

Answer 1

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.

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.

e342b2d8c9498a6b743e678c9cfbd82a.pas

43c1064a1249302b3c6dcea59f76de64.pas

b3d70e15f070f08659fa6212015ee793.pas

68a26b232c1f7b6ce35fd8858822aaf4.pas