Var n,i,p:integer;
begin
p:=1;
readln(n);
for i:=1 to n do
if i mod 2 = 0 then k:=k*i;
writeln(k);
end.
Var a,s,p:integer;
begin
p:=1;
read(a);
if(a=0) then p:=0;
while(a<>0)do begin
s+=a;
p*=a;
read(a); end;
writeln(s, ' ', p);
<span>end.</span>
Ответ 4. приоритет операций у деления, а значит в числителе будет только 25 (а не 50+25), а выражение 4*10-2 стоит в скобках, а значит все выражение будет в знаменателе
Var
x, y, r: real;
begin
read(x, y, r);
if ((x >= 0) and (y >= 0) and (x * x + y * y <= r * r))
or ((x < 0) and (y < 0) and (x + y >= -r)) then
write('да')
else
write('нет');
end.
1. Маркированные списки оформляются с помощью маркеров. Они могут быть разной формы. Нумерованные списки оформляются при помощи арабских или римских цифр.
2. Если работаете в Microsoft Office, то в меню Главная есть 2 кнопки (нумерованный список и маркированный)
3. Ввод завершается двойным нажатием клавиши Enter