begin k := 0; write('Введите числа: '); for i := 1 to 3 do begin readln(mas[i]); if (mas[i] < 0) and (mas[i] mod 2 <> 0) then k := k + mas[i]; end; writeln('Сумма нечетных отрицательных чисел = ', k); end.
Целая часть от деления Остаток от деления12 div 2 = 6 12 mod 2 = 06 div 2 = 3 6 mod 2 = 03 div 2 = 1 3 mod 2 = 11 div 2 = 0 1 mod 2 = 1Остаток от деления записываем в обратном порядке. Получаем число в 2-ой системе счисления: 1100 12 = 1100|2 Для перевода дробной части числа последовательно умножаем дробную часть на основание 2. В результате каждый раз записываем целую часть произведения. 0.75*2 = 1.5 (целая часть 1) 0.5*2 = 1 (целая часть 1) 0*2 = 0 (целая часть 0) 0*2 = 0 (целая часть 0) Получаем число в 2-ой системе счисления: 1100 0.75 = 1100|2 В итоге получаем число: 1100.1100|2
Всего номеров четыре. Номера Пети и Коли в сумме меньше четырех, следовательно ни Петя, ни Коля не могут быть ни четвертым, ни третьим, поэтому у Пети и Коли номера 1 и 2 (только 1+2=3, что меньше четырех). Значит, Гриша не первый и не второй, т.е. его номер больше, чем у Пети и ответ - "да".
Условие, что последний (четвертый) стоит после Коли - лишнее, оно ничего не дает. Гриша стоит перед Васей позволяет нам лишь сделать вывод, что Гриша третий, а Вася четвертый, но и этого по условию задачи нам не нужно.
var
mas: array [1..3] of integer;
i, k: integer;
begin
k := 0;
write('Введите числа: ');
for i := 1 to 3 do
begin
readln(mas[i]);
if (mas[i] < 0) and (mas[i] mod 2 <> 0)
then k := k + mas[i];
end;
writeln('Сумма нечетных отрицательных чисел = ', k);
end.