Взять 2 миски-взять мешок с зерном-взять зёрнышко-цветное?-да-в серую коробку
|
нет
|
в белую коробку
робот берёт фасолину-цветная?-нет-в белую
|
да
|
в в серую коробку
допустим робот ложит всё внутреннее мешка на стол и когда щупает что ничего на столе нет останавливается!
Var a:array[1..100]of integer;
nol,chet,nechet,i,n:integer;
begin
readln(n);
for i:=1 to n do begin
readln(a[i]);
if (a[i] mod 2=0)and(a[i]<>0) then chet:=chet+1;
if (a[i] mod 2=1) then nechet:=nechet+1;
if a[i]=0 then nol:=nol+1;
end;
writeln('четных :',chet,' ','нечетных :',nechet,',' ',нулевых :',nol);
<span>end.</span>
1. А2=15/5=3
В2=15-3*5=0
А3=3+5^2=28
В3-0/5+28=28
Ответ: А3=28, В3=28;
2. а) А2=3+6=9
А3=5+1=6
С1=3
С2=(9+6+5+4)/4=24/4=6
С3=3+6=9
Ответ: С1=3, С2=6, С3=9
б) А1=2+3=5
А2=2
А3=7+1=8
С1=5+2=7
С2=8
С3=(7+8)/2=7,5
Ответ: С1=7, С2=8, С3=7,5;
3. В прикрепленных.
4. 1) 25-18=7 - средняя стрельба
2) 25-15=10 - средняя скорость
3) 7-5=2 - средняя стрельба, высокая скорость
4) 10-5=5 - средняя скорость, высокая стрельба
5) 25-5-2-5=13 - высокая скорость, высокая стрельба.
Ответ: 13.
Begin
Writeln(20,' ',25);
Writeln(20); Writeln(25)
end.