Даны четыре целых числа. Найти среди них количество нечетных. В паскале
10-11 класс
|
program Necet;
var
Number: Byte;
NecetCol: Byte;
Numbers: array [1..4] of Integer;
begin
for Number:=1 to 4 do
begin
Write('Vvedite '+IntToStr(Number)+' chislo');
ReadLn(Numbers[Number]);
end;
NecetCol:=0;
for Number:=1 to 4 do
if Numbers[Number] mod 2 <> 0 then Inc(NecetCol);
WriteLn('Necetnix chisel: '+IntToStr(NecetCol));
end.
Другие вопросы из категории
Разработать, ввести в ЭВМ и отладить программу для
расчёта действительного расстояния между городами, если известно расстояние
между ними на карте и масштаб карты
2. Для запуска только одного из нескольких ожидающих потоков используют?
3. Для исключения одновременного доступа к разделенным ресурсам несколькими потоками и без возможности многократной блокировки одним потоком используют?
4. Для одновременного доступа к разделяемому ресурсу заданного количества потоков используют?
5. Для исключения одновременного доступа к разделяемому ресурсу несколькими процессами используют с возможностью многократной блокировки?
Варианты ответов для пятого вопроса!!!
а) событие б) семафор в) мьютекс г) критическая секция д) нет правильно ответа
Варианты ответов для вопросов 1-4:
а) auto reset event b) semaphore c) mutex d) critical section i) manual reset event
Помогите пожалуйста!!!
Читайте также
порядке возрастания все целые числа, расположенные между A и B(в том числе A и B),
a также количество N этих чисел
ЦИКЛ с ПАРАМЕТРОВ
среди них.Ничего кроме этого программа выводить не должна. При использовании системы Free Pascal для представления целых чисел используйте тип LongInt. Надо сделать в Pascal
Ввести с клавиатуры 3 числа, найти среди них
наименьшее. Предусмотреть выводы данных на дисплей.
Даны три целых числа.Найти кол-во положительных чисел в исходном наборе.