//ax + b = 0, где а и b – любые числа.
var a,b,x:real; //инициализирует переменные a,b и x типа real, с плавающей точкой
begin; //начало программы
readln(a); //ввод a
readln(b); //ввод b
x:=-b/a; //находим корень
writeln(x); //выводим корень
end. //конец программы

0 0

3 года назад

Дан массив из целых чисел. В массиве есть повторяющиеся числа.Вывести сколько раз встречается каждый элемент массива.

Таисия1981 [127]

Const
U=1000;
type:
Mas= array [1..U] of integer;
var
a: Mas;
i,j,k,n: integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
begin
if a[i]=a[j] then k:=k+1;
end;
write(k,' ');
end;
readln;
readln
end.
Если понравилось поставь лучшее решение!
Спасибо!

0 0

1 год назад

В корзине лежит 98 трех цветов. Известно, что зеленых шаров в корзине вдвое больше, чем красных, а красных - вдвое больше, чем с

кил-бан [73]

Это ведь скорее математика, а не информатика.
Пусть x - количество синих шаров.
Тогда 2x - количество красных шаров, а 2(2x) - количество зеленых.
x + 2x + 4x = 98, 7x = 98, x = 14
Количество красных шаров = 2*14 = 28

0 0

4 года назад

Напишите программу вычисляющую значение функции y=1 при x<0, y=0 при x=0, y=-1 при x<0

Виктор33

Var x,y:integer;
begin
write('x = ');
readln(x);
if x>0 then y:=1
else if x=0 then y:=0 else y:=-1;
writeln('y = ',y);
end.

Пример:
x = -5
y = -1

0 0

1 год назад