Var a,b: real; s: byte;
Begin
Writeln ('введите два числа');
Readln (a,b);
S:=0;
If (a mod 2)=1 then writeln (a,' - нечетное число') else s:=s+1;
If (b mod 2)=1 then writeln (b,' - нечетное число) else s:=s+1;
If s=2 then writeln ('оба числа четные')
End.
Ответ:
95
Объяснение:
1) Выписываем 8 бит числа N
2) Выполняем инверсию каждого бита числа N - получаем число N'. Заметим, что если сложить N и N', то переполнений в разрядах не будет, так как каждый бит складывался с его инверсией, в результате чего бит результата равен 1. Результатом сложения будет 8-битное число, состоящее из всех 1, то есть 255. Иначе говоря, N+N' = 255, N' = 255-N
3) Прибавим к N' число 1, получим 256-N.
По условию, 256-N > 160. Отсюда N < 96. Максимальное N равно 95.
Program prl;
uses crt;
var i,n,summa:integer;
srednee:real;
a:arra[1..100] of integer;
begin
write('Введите кол-во четных элементов');
readln(n);
summa:=0;
for i:=1 to n do begin
write('Введите ',i,' элемент:');
readln(A[i]);
summa:=summa+A[i];
end;
srednee:=summa/(n div 2);
writeln('Среднее арифметическое',srednee:3:2);//
readln;
end.
Будет выведен файл состоящий из пяти символов вторым из которых будет 2