Pascal
var
x,y : integer;
begin
readln (x,y);
if (x=0) or (y=0)
then
begin
if x = 0 then
writeln ('Точка лежит на оси y');
if y = 0 then
writeln ('Точка лежит на оси x')'
end
else
begin
if (x>0) and (y>0) then
writeln ('Точка находится в первой четверти');
if (x<0) and (y>0) then
writeln ('Точка находится во второй четверти');
if (x<0) and (y<0) then
writeln ('Точка находится в третей четверти');
if (x>0) and (y<0) then
writeln ('Точка находится в четвертой четверти');
end;<span>
end.</span>
Я вот тоже Вышел порешать =).
var p: array [1..1000] of record
slovo:string;
k:integer;
end;
N,i,j,max:integer;
c:char;
a:array [97..122] of integer;
BEGIN
max:=0;
readln(N);
for i:=1 to N do
begin
p[i].slovo:='';
repeat
read(c);
p[i].slovo:=p[i].slovo+c
until c=' ';
readln(p[i].k);
for j:=1 to length(p[i].slovo) do
if (ord(p[i].slovo[j])>=97) and (ord(p[i].slovo[j])<=122) then
a[ord(p[i].slovo[j])]:=a[ord(p[i].slovo[j])]+p[i].k;
end;
for j:=97 to 122 do
if a[j]>max then
max:=a[j];
write(max);
end.
Ответ:
program Calc2;
uses
Math;
var
x, y: Real;
begin
Write ('X = ');
ReadLn (x);
y := x - 10 * Sin (x) + Abs (Power (x, 4) - Power (x, 5));
WriteLn ('Результат = ', y);
ReadLn;
end.
Объяснение: