Сколько введенных чисел больше 10 - Pascal

Узнай цену своей работы

Формулировка задачи:

Создайте программу, запрашивающую у пользователя 10 чисел. Если больше 4-х из них окажутся больше 10, выведите сообщение «Караул! Сейчас все взорвется». Иначе сообщите, сколько введенных чисел больше 10, а сколько больше 5.

Решение задачи: «Сколько введенных чисел больше 10»

textual
Листинг программы
var x: real;
    i, g5, g10: integer;
begin
  g5 := 0;
  g10 := 0;
  writeln('Введите 10 чисел:');
  for i := 1 to 10 do
    begin
      write(i:2, ': ');
      readln(x);
      if x > 10 then inc(g10);
      if x > 5 then inc(g5)
    end;
  if g10 > 4
    then write('Караул! Сейчас все взорвется')
    else begin
      writeln('Количество чисел, больших десяти: ', g10);
      write('Количество чисел, больших пяти: ', g5)
    end;
  readln
end.

Объяснение кода листинга программы

  1. Объявляется переменная x типа real для ввода чисел с плавающей точкой.
  2. Объявляются переменные i, g5 и g10 типа integer для использования в цикле и подсчете количества чисел.
  3. Устанавливаются начальные значения g5 и g10 как 0.
  4. Выводится сообщение Введите 10 чисел:.
  5. Запускается цикл, который выполняется 10 раз (от 1 до 10).
  6. Для каждого значения i в цикле пользователь вводит число, которое записывается в переменную x.
  7. Проверяется, больше ли введенное число 10, и если да, увеличивается значение переменной g10 на 1.
  8. Проверяется, больше ли введенное число 5, и если да, увеличивается значение переменной g5 на 1.
  9. После цикла проверяется количество чисел, больших 10. Если их больше 4, выводится сообщение Караул! Сейчас все взорвется.
  10. Если количество чисел, больших 10, меньше или равно 4, выводится количество чисел, больших 10, и количество чисел, больших 5.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.167 из 5
Похожие ответы