Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.
Вебклиент. Это ответ на твоё задание
Регулятор -> пешеход
учебник -> школьник
мальчик <-> компьютер (происходит обмен информации. Школьник вводит данные - компютер возвращает. Если только 1 ответ - все-же мальчик -> компьютер)
человек -> телефон
человек -> открытка -> люди, которые будут её читать
Попробуй по этому плану сделать :
<span>cout</span><span><<</span><span>"Введите числа:<span>\n</span>"</span><span>;</span>
<span>int</span> numbers<span>[</span><span>100</span><span>]</span>, i <span>=</span><span>0</span><span>;</span>
<span>do</span><span>cin</span><span>>></span>numbers<span>[</span>i<span>]</span><span>;</span>
<span>while</span><span>(</span>numbers<span>[</span>i<span>++</span><span>]</span><span>!</span><span>=</span><span>0</span><span>)</span><span>;</span>
<span>long</span> sum <span>=</span><span>0</span><span>;</span>
<span>for</span><span>(</span><span>int</span> j <span>=</span><span>0</span><span>;</span> j <span><</span> i<span>;</span> j<span>++</span><span>)</span> sum <span>+</span><span>=</span> numbers<span>[</span>j<span>]</span><span>;</span>
<span>cout</span><span><<</span><span>"Результат: "</span><span><<</span><span>(</span><span>float</span><span>)</span>sum<span>/</span><span>(</span>i<span>-</span><span>1</span><span>)</span><span>;</span>
Var a,b,r:integer;
begin
readln(a,b);
if (a<0) and (b<0) then r:=sqr(a)+sqr(b)
else r:=abs(a-b);
write(r);
end.