Задать вопрос
ИнформатикаИнформатика
3 июня, 01:33

Составить программу.

Введите 7 чисел. Найти сумму больше 3 и произведение меньше 3.

+5
Ответы (1)
  1. 3 июня, 02:23
    0
    Program semchisel;

    Var a, i, sum, proiz:integer;

    Begin

    proiz:=1; sum:=0;

    for i:=1 to 7 do

    begin

    read (a) ;

    if (a<3) then proiz:=proiz*a;

    if (a>3) then sum:=sum+a;

    end;

    Writeln ('proiz=', proiz, ' ', 'sum=', sum) ;

    Readln;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составить программу. Введите 7 чисел. Найти сумму больше 3 и произведение меньше 3. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Помогите составить программы Введите несколько чисел. Найдите произведение чисел меньших 7. Введите несколько чисел. Найдите количество двузначных чисел. Введите несколько чисел.
Ответы (1)
Написать в тетради программу на Pascal: Спросить у пользователя три числа. Вывести сумму чисел, среднее значение. Пример: Введите а: 5 Введите b:4 Введите c:3 Сумма: 12 Среднее: 6
Ответы (1)
Программа не запускается исправьте программу program lab1; Var x, a, nx:integer; y:real; begin write ('Введите x: ') ; read (x) ; write ('Введите a: ') ; read (a) ; write ('Введите nx: ') ; read (nx) ; If a
Ответы (1)
Program Series17; var a, B, N, i:integer; bol:boolean; begin i:=0; n:=0; bol:=true; Writeln ('Введите число B') ; readln (B) ; Writeln ('Введите число N') ; Readln (N) ; Writeln ('Введите ', N,' целых чисел.
Ответы (2)
1) напишите программу, которая спрашивает целое число n и считает сумму целых чисел, Муму чётных чисел и сумму нечётных от 1 до n 2) напишите программу, которая спрашивает целые числа а и b и выводит на экран квадраты чисел от а до b 3) напишите
Ответы (1)
Помогите с ответом
Бесконечная десятичная дробь устроена следующим образом. Перед десятичной запятой стоит нуль. После запятой подряд выписаны все целые неотрицательные степени некоторого однозначного натурального числа p. В результате получается рациональное число.
Нет ответа
помогите решить комплексни чыла z1=1-3i, z2=2+i
Нет ответа
1. Как с помощью двух вёдер объёмом 4 л и 11 л набрать 6 литров? 2. Как с помощью двух вёдер объёмом 5 л и 9 л набрать 7 л? 3. Как с помощью двух вёдер объёмом 3 л и 7 л набрать 5 л? 4.
Нет ответа
Завтра день самоуправления, а я туплю, задание за 4 класс запишите числа, которые содержат 40 тыс. 60 ед. 40 тыс. 6 ед. 9 млн. 90 тыс. 90 млн. 9 тыс. 100 млн. 100 млрд.
Нет ответа
Выполните деление 14:42 = 100:40 = 20:15 = 7:8=
Нет ответа
Главная » Информатика » Составить программу. Введите 7 чисел. Найти сумму больше 3 и произведение меньше 3.
Регистрация Забыл пароль