Задать вопрос
24 октября, 20:34

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

+5
Ответы (1)
  1. 24 октября, 22:28
    0
    Var

    a, f, f1, i: integer;

    begin

    f : = 0;

    f1 : = 0;

    write ('Введите 10 чисел:') ;

    for i : = 1 to 10 do

    begin

    read (a) ;

    if (a > 10) then f : = f + 1;

    if (a > 5) then f1 : = f1 + 1;

    end;

    if (f > 4) then write ('Караул! Сейчас все взорвется')

    else

    begin

    writeln (f1, ' чисел (о) (а) больше 5') ;

    write (f, ' чисел (о) (а) больше 10') ;

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Создайте программу, запрашивающую у пользователя 10 чисел. Если больше 4-х из них окажутся больше 10, выведите сообщение "Караул! Сейчас ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1) Разработайте программу, запрашивающую у пользователя длины обеих катетов прямоугольного треугольника, и выводящую на экран гипотезу по формуле Пифагора 2) Запросите у пользователя длину ребра куба, Найдите и выведите на экран площадь одной грани,
Ответы (1)
Написать программу на языке Паскаль. 1. Написать программу из 3 введенных значений. Найти максимальное 2. Написать программу запрашивающую номер класса и выводящееся сообщения если 1-4 класса-младшая школа, 5-9-средняя, 10-11-старшая 3.
Ответы (1)
Напишите программу в паскаль для решения следующей задачи: для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты.
Ответы (1)
Паскаль: с Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. Если произведение этих чисел положительно, то выведите утроенное значение каждого числа.
Ответы (1)
Написать программу на паскале, запрашивающую возраст пользователя, если ему не менее 18 лет сообщите ему что он имеет право голосовать, в противном случае вычислите через сколько лет ему предоставят это право.
Ответы (1)