varb: array [1..8] of integer; r,q: integer; begin for r: =1 to 8 do begin q: =0; read(b[r]); end; for r: =1 to 8 do if b[r] mod 2=1 then q: =q+b[r]; writeln; writeln('сумма нечетных чисел равна ',q); end.
Ответ дал: Гость
pascal (гдето
program treska;
var a,i,k,b,b2,b3: integer;
begin
for i: =100 to 999 do
begin
a: =sqr(i);
k: =a-i;
b: =a-k;
if i=b then write (i,' ');
end;
readln
end.
Ответ дал: Гость
(a1+a2+a3+a4+b1+b2+b3+b4)/8=3
a1+a2+a3+a4+b1+b2+b3+b4=24
a1+a2+a3+b1+b2+b3=30
значит
a4+b4=24-30=-6
b4=5
a4=-6-5=-11
Ответ дал: Гость
1. загнать два вагона в тупик, оставшийся вагон с тепловозом прогнать дальше по путям. 2. грузовой состав проезжает тупик, сдает назад, цепляет эти вагоны в хвост состава, вытягивает их на пути и сдает назад на исходную позицию. 3. тепловоз с оставшимся вагоном уходит в тупик. 4. грузовой состав бросает прицепленные вагоны и дает ходу. 5. тепловоз с вагоном выезжает из тупика и подбирает свои вагоны.
Популярные вопросы