на каком языке нужна программа? пример на 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 summa;
var s, a, b, c : word;
begin
write('введите a - > '); readln(a);
write('введите b - > '); readln(b);
write('введите с - > '); readln(c);
s: =a+b+c;
write(' сумма равна ',s);
readln
end.
Ответ дал: Гость
в одном байте восемь бит. следовательно 100/8=12.5 ответ 12.5
Ответ дал: Гость
program ; var n : integer; begin for n: = 10 to 99 do if n mod 13 = 0 then writeln(n); readln; end.
Популярные вопросы