1. Информатика
  2. Ввести с клавиатуры 10 целых чисел.подсчитать

Ввести с клавиатуры 10 целых чисел.подсчитать количество нечётных (в паскаль турбо)

ziHerroy ziHerroy    3   05.06.2019 15:40    0

Ответы
адэляком адэляком  06.07.2020 01:47
Program;
Uses vincrt;
Var i,n: integer
Begin
i:=0;
writeln('n=');
Raedln(n);
If (n mod 2 = 1) then i:=i+1;
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
katyakiseleva3 katyakiseleva3  20.04.2020 15:44
Напишите программу на языке СИ...
антон776 антон776  20.04.2020 15:43
Как нарисовать букву Д в программе скретч...
франческа033 франческа033  24.09.2019 00:40
Сделайте программу которая будет считать(умножать) все числа до 50. зробіть програму, яка знайде добуток всіх чисел до 50. программу в паскале....
MrNikitkahelp MrNikitkahelp  08.02.2021 10:19
Терміново, до ть, будь ласка. Один майстер може виконати роботу за t1 годин, другий майстер - за t2 годин. Знайти за скільки годин можуть виконати роботу обидва майстра...
Ekaaaterina Ekaaaterina  08.02.2021 10:23
ответить на вопросы 1. Напишите определение понятию «растровой графики».2. Опишите достоинства и недостатки растровой графики.3. Дайте определение параметру разрешение...
Виктория222222111 Виктория222222111  17.09.2019 11:20
Решите ! 1) 25-81 х во 2 степени.. 2)400 а в 4 степени- 9 в во 2 степени.. решить уравнение.. 1) (1х+7)(х--1)(х+1)=4-2х во 2 степени. 2)8 х во 2 степени-4(2х во 2 степени+6)=5х-3...
arven88 arven88  17.09.2019 11:20
Л/р № 10 «изучение передвижения животных» 100 оборудование: ход работы: 1. рассмотрите животных, находящихся перед вами. 2. отметьте, как перемещаются животные; каков...
bauka077 bauka077  17.09.2019 11:20
Көркем əдебиеттен тұйық етістігі бар 5сөлем жаз....
nevessomost nevessomost  17.09.2019 11:20
Которая из дробей равна данной дроби x+11 2 −x−11 -2 −x+11 -2 −11−x -2 x−11 -2...
Ksenua69 Ksenua69  17.09.2019 11:20
Напишите уравнения с участием углерода который характеризуют отдельно его восстановительные и окислительные свойства....

Популярные вопросы