1.2 и 1.3

+ 0 -

GreenLoL

27 янв. 2017 г., 19:12:31 (7 лет назад)

1.2


1.3
var
  a: word;
begin
  readln(a);
  a := a div 100 * 10 + a mod 10;
  writeln(a);
end.
---------------------
var
  x, y: real;
begin
  write('x = ');
  readln(x);
  if (x <= 0) then
    y := -x
  else
    if (x <= 1) then
      y := x
    else
      y := 1 / sqr(x);
  writeln('y = ', y);
end.
-----------------------
const
  n = 5;

var
  x, y, z: integer;
begin
  for x := 1 to n do
  begin
    readln(y);
    if ((y < 0) and (z > -1)) then
      z := x - 1;
  end;
  writeln();
  writeln(z);
end.

+ 0 -

GRAFIX434

27 янв. 2017 г., 22:02:08 (7 лет назад)

Комментарий удален

+ 0 -

Acfyh

28 янв. 2017 г., 0:19:23 (7 лет назад)

его как бы открыть можно

+ 0 -

Annadzhenija

28 янв. 2017 г., 2:45:41 (7 лет назад)

но я уже решил

+ 0 -

Agility

28 янв. 2017 г., 5:24:40 (7 лет назад)

Комментарий удален