profile
Опубликовано 5 лет назад по предмету Информатика от tanyamorozova123

Сколько нечетных среди n введенных причем надо вводить эти числа с клавиатуры n раз

  1. Ответ
    Ответ дан Аккаунт удален
    begin
    write('Введите n: ');
      var n := ReadInteger;
    var c := 0;
    for var i:=1 to n do
    begin
    write ('Введите целое число: ');
    var x := ReadInteger;
    if x mod 2 <> 0 then
    c += 1;
      end;
    writeln('Количество нечетных равно ', c);
    end.
Самые новые вопросы