Дано три числа...

Тема в разделе "Информатика", создана пользователем InkognitA, 2 янв 2010.

  1. InkognitA

    InkognitA New Member

    Дано три числа x, y, z. Вычислить количество чисел больших 7.
     
    InkognitA, 2 янв 2010
    #1
  2. YUR1

    YUR1 New Member

    var
      x, y, z : real;
      k : byte;
    begin
      read (x, y, z);
      k := 0;
      if x > 7 then inc (k);
      if y > 7 then inc (k);
      if z > 7 then inc (k);
      writeln (k);
    end.
     
    YUR1, 2 янв 2010
    #2

Поделиться этой страницей

Наша группа