Все категории

4 года назад

Написать программу. Даны координаты точки ( x,y). Определить по координатам , какой четверти принадлежит точка.

Знания

Информатика

1 ответ:

Руслан1992 [77]4 года назад

0 0

Program koordunatu; Var x,y:real; Begin Write( 'x=>' ); readln(x); Write( 'y=>' ); readln(y); if (x=0) and (y=0) then writeln('M(0,0)') else if x=0 then writeln('OY') else if y=0 then writeln('OX'); if (x>0) and (y>0) then writeln('І'); if (x<0) and (y>0) then writeln('II'); if (x<0) and (y<0) then writeln('III'); if (x>0) and (y<0) then writeln('IV') End.

Читайте также

Дам много балов Срочно надо

Giorgi Orlovsky [30]

Ответ:

Begin

P:=1.0;

For i:= 3 to 12 do

P:=p/sqrt(i)

Write(p);

End.

Begin

Read(x);

S:=1;

For i:= 1 to 11 do

S:=s+5*i+x;

Write(s);

End.

Begin

S:=0;

For i:= 1 to 130 do

If i mod 6= 0 then

S:=s+1;

Write(s);

End.

Begin

S:=0;

For a:= 1 to 20 do

For b:= 1 to 20 do

For c:= 1 to 20 do

If a*a-b=c*c then

S:=s+1;

Write(s);

End.

Begin

S:=0;

For i:= 20 to 99 do

If i mod 3= 0 then

S:=s+i;

Write(s);

End.

0 0

3 года назад

Написать программу которая находит значения выражения при любом заданом пользователем x : 1) y=2x^3+3x^2-4

Тамара Малинина [25]

Язык:

1) Python

2) Pascal ABC

Объяснение:

x = int(input())

y= 2 * (x ** 3) + 3 * (x ** 2) - 4

print(y)

var x, y: integer;

Begin

readln(x);

y := 2 * (x * x * x) + 3 * (x * x) - 4;

writeln(y);

End.

0 0

4 года назад

Помогите по информатике))))

spicestore [18]

1) 3
2) 1 2 3 4 5
3)
Program name;
var i:integer;
begin
for i:=1 to 6 do writeln('Ваше Имя');
end.
4)
a)
б)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=20 to 40 do sum:= sum+i;
writeln(sum);
end.
в)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=40 to 70 do sum:= sum+i;
writeln(sum);
end.
г)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=30 to 60 do if i mod 2 = 0 then sum:= sum+i;
writeln(sum);
end.
д)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=36 to 66 do if i mod 2 = 1 then sum:= sum+i;
writeln(sum);
end.

0 0

4 года назад

Память компьютера делится на: a) Оперативную и внутреннюю; b) Внешнюю и долговременную; c) Оперативную и долговременную.

Валера10 [2]

Оперативную и внутреннюю

0 0

4 года назад

Помогите в Pascal ABC написать программу лягушки

Баба ягодка

Вывести в случайном порядке 10 чисел в промежутке от -5 до 5.
Программа: Pascal ABC
тема: Функция random.

0 0

4 года назад