08
ИюльДам 100 б мова проектування Паскаль ZD1: Нечётные отрицательные Складність: тоо Ограничение по времени:…
Предмет: Информатика
Уровень: 5 - 9 класс
Дам 100 б мова проектування Паскаль ZD1: Нечётные отрицательные Складність: тоо Ограничение по времени: Ограничение по памяти: Вам дано пять целых чисел. Для каждого заданного числа выясните, является ли оно одновре- менно нечётным и отрицательным. Формат входных данных Программа получает на вход сразу пять натуральных чисел. Все числа по абсолютной величине не превосходят 109. 0.2 секунды 64 мегабайта Формат выходных данных Для каждого числа из входных данных выведите YES, если оно является одновременно нечётным и отрицательным; выведите NO — в противном случае. Пример 23 -1 -1234 -12345 -99999 тест NO YES NO YES YES Ответ
[any] Pascal: (без хранения введённых чисел => «эффективная»)
var a, i, x: integer;
begin for i := 1 to 6 do begin read(a);
if a>0 then x := x + 1
else if a<0 then x := x — 1 end;
if x>0 then write(‘Больше положительных’)
else if x<0 then write(‘Больше отрицательных’) else write(‘Одинаково’)end.
PascalABC.NET: (с хранением введённых чисел в массиве)
##
var a := ReadArrInteger(6);
var x := a.Sum(x -> x>0 ? 1 : -1);
if x=0 then Write(‘Одинаково’)
else Print(‘Больше’, x>0 ? ‘положительных’ : ‘отрицательных’)
Пример работы: