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

Определить количество нечетных чисел заданных от 1 до n

  1. Ответ
    Ответ дан vladmor
    var a,n,k : integer;
    begin
    write('Введите n :');
    readln(n);
    a:=1;
    repeat
      k:=k+1;
      a:=a+2;
    until a>n;
    writeln('Количество нечетных ',k);
    end.

    Тестовое решение:
    Введите n :10
    Количество нечетных 5

Другие вопросы
Lenusik
Математика - 3 недели назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

321
Математика - 1 месяц назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

bkmz
Математика - 1 месяц назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

lesiunia
Физика - 1 месяц назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Kiril
Физика - 1 месяц назад

Сколько часов и минут в -1,3ч и -2,75ч

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.