Ответ:
0-лодно , а 1-истинно
Объяснение:
нет
зимой есть снег A=1 нет снега B=0
C=1+0=1
C=1*0=0 разные згачение одновременно нет
Var i,sum:integer;
cp:real;
mass:array[1..6] of integer;
begin
for i:=1 to 6 do
begin
write('mass[',i,']=');
read(mass[i]);
sum:=sum+mass[i];
end;
writeln;
for i:=1 to 6 do
writeln('mass[',i,']=',mass[i]);
writeln;
writeln('Среднее арифметическое элементов массива равно ',sum/6:0:4);
end.<span>
</span>
Уровень 1.
<body>
<p align=center><font color=blue size=4 face "Tahoma">
<b>Алгоритмы</b>
</font></p>
<p align=center><i>Основные блоки</i></p>
<img align=left src=bloc3.gif
width=200 height=100 hspace=40 vspace=10 alt="Блок Процесс">
<ul type="square">
<li>блок "модификация" (обозначает начало цикла);
</ul>
</body>
----
Уровень 2.
добавить
<ul>
Вставить фрагмент кода из задания.
</ul>
ТЕКСТ
добавляем заголовки таким образом:
<a name="one" >Язык С и С++</a>
ТЕКСТ
<a name="two" >Язык Pascal</a>
ТЕКСТ
<a name="three" >Basic</a>
ТЕКСТ
<a name="four" >Visual Basic</a>
ТЕКСТ
<a name="five" >FORTRAN</a>
ТЕКСТ
<a name="six" >ALGOL</a>
ТЕКСТ
Var s,p:string; k,i:integer;
begin
readln(s);
p:='.,;:!?';
k:=0;
for i:=1 to length(s) do
if pos(s[i],p)>0 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Hi, guys!
k = 2