Задать вопрос
24 января, 00:02

1. Написать программу, вычисляющую сумму отрицательных чисел, кратных 5, среди пяти, вводимых с клавиатуры.

2. Написать программу, вычисляющую произведение чисел, оканчивающихся цифрами 2 и 4, среди пяти, вводимых с клавиатуры.

3. Написать программу, вычисляющую среднее арифметическое чисел, принадлежащих диапазону [-5; 5], среди пяти, вводимых с клавиатуры

+2
Ответы (1)
  1. 24 января, 00:24
    0
    Program z1;

    var a, i, sum:integer;

    Begin

    sum:=0;

    for i:=1 to 5 do

    begin;

    read (a) ;

    if (a<0) and (a mod 5=0) then

    sum:=sum+a;

    end;

    writeln (sum) ;

    End.

    Program z2;

    var a, p, i:integer;

    Begin

    p:=1;

    for i: = 1 to 5 do

    begin;

    read (a) ;

    if (a mod 10=2) or (a mod 10=4) then

    p:=p*a;

    end;

    writeln (p) ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1. Написать программу, вычисляющую сумму отрицательных чисел, кратных 5, среди пяти, вводимых с клавиатуры. 2. Написать программу, ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы