profile
Опубликовано 5 лет назад по предмету Информатика от eminem78s

Ещё очень нужно задание 3 и 4. Please.

  1. Ответ
    Ответ дан alexanderbelinsky

    №3

    a)

    x, y,z : integer;

    begin

         readln(x, y, z);

         if  (x > 0) and  (y > 0) and  (z > 0) then: write('Yes')

    end.

    b)

    x, y,z : integer;

    begin

         readln(x, y, z);

         if  (x > 0) or  (y > 0) or  (z > 0) then: write('Yes')

    end.

    #4

    K : real;

    begin

         read(K);

         K := K + K / 100 * 2;

         write(K)

    end.