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

Информатика 8 класс! Паскаль. Помогите пожалуйста 2 задания!​

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

    1)

    x кратно 5 <-> x mod 5=0

    2 < x < 5 <-> (x>2) and (x<5)

    x ∈ [-10;10] <-> (x>=-10) and (x<=10)

    2)

    var

     N1, N2, N3: integer;

    begin

     read(N1, N2, N3);

     if ((N1 = 1) or (N1 = 4) or (N1 = 7)) and  

        (N1 = N2 - 1) and (N2 = N3 - 1) then

       write('Квадраты лежат на одной горизонтали')

     else  

       write('Квадраты не лежат на одной горизонтали');

    end.

Самые новые вопросы