Var a,b,c: real;
begin
readln (a);
readln (b);
readln (c);
if (a mod 5)=0 then
writeln (a);
if (b mod 5)=0 then
writeln (b);
if (c mod 5)=0 then
writeln (c);
end.
Я думаю что: 4,5,7,8,12
Ну я так понял)
Если элемента массива равен полусумме соседних элементов, то вывести его:
Делаем трассировку
i = 2; M[i] = 1; (-2 + -1)/2 = -1,5 | -
i = 3; M[i] = -1; (1 + -2)/2 = -0,5 | -
i = 4; M[i] = -2; (-1 + -3)/2 = -2 | +
i = 5; M[i] = -3; (-2 + -2)/2 = -2 | -
i = 6; M[i] = -2; (-3 + 3)/2 = 0 | -
i = 7; M[i] = 3; (-2 + 8)/2 = 3 | +
Ответ: -2, 3
125(восьм.)=1*8^2+2*8^1+5*8^0=64+16+5=85 (десятичн.)
34(восьм.)=3*8^1+4*8^0=24+4=28 (десятичн.)