Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠0 и у≠0
program 198;
var x,y: real;
begin;
readln (x; y);
if x> 0 and y> 0 then
writeln (1 chetvert);
end;
if x< 0 and y> 0 then
writeln (2 chetvert);
if x< 0 and y< 0 then
writeln (3 chetvert);
if x> 0 and y< 0 then
writeln (4 chetvert);
end.
ваня на п
саша на в
коля на с
петя на к
смотря откуда эта формула и как вы ее применяете
похоже, что пи - просто функция без аргументов, т.е. ничего ставить не надо
var i,n,s: nteger;
begin
read(n);
for i : = 1 to n do
if i mod 2 = 0 then s: = s-1/i;
else s: = s+1/i;
writeln(s);
Популярные вопросы