на каком языке нужна программа? пример на paskal: program zadacha; var massiv: array [1..15] of integer; i: byte; massiv2: array [1..15] of real; begin randomize; write('isxodnij massiv: '); for i: =1 to 15 do begin massiv: =random(41)-20; write(massiv,' '); end; writeln; writeln('massiv posle preobrazovanij: '); for i: =1 to 15 do begin if massiv=0 then massiv2: =massiv else if massiv mod 5 = 0 then massiv2: =massiv*2 else begin massiv2: =massiv; massiv2: =massiv2/2; end; write(massiv2: 0: 1,' '); end; readln; end.
Ответ дал: Гость
program xxx;
var z,d,k : integer;
begin
z: =2; d: =7; k: =0;
while (d> =z) do
begin
d: =d-z;
k: =k+1
end;
writeln(d,' ',k);
readln
end.
Ответ дал: Гость
самое близкое число, к числу 25952, которое читается одинаково слева направо и справа налево это число: 26062.
26062 - 25952 = 110 секторов проверила программа за 2 секунды
110 : 2 = 55 секторов проверяет программа за секунду
Популярные вопросы