Задать вопрос
24 апреля, 09:10

С клавиатуры вводятся 5 чисел, найти сумму нечетных. Программа Паскаль.

+3
Ответы (1)
  1. Х
    24 апреля, 12:36
    0
    var i, a, z:integer;

    begin

    for i:=1 to 5 do

    begin

    read (z) ;

    if not (z mod 2 = 0) then a:=a+z;

    end;

    write ('sum=', a) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «С клавиатуры вводятся 5 чисел, найти сумму нечетных. Программа Паскаль. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
 
Войти
Задать вопрос