ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
N, сч, отрицательных: ЦЕЛ;
УКАЗ
N := Приём.Число();
СОЗДАТЬ(массив, N);
отрицательных := 0;
ОТ сч := 0 ДО N - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 20)) - 10;
ЕСЛИ массив[сч] < 0 ТО УВЕЛИЧИТЬ(отрицательных) КОН
КОН;
Вывод.ЧЦел("^%d", отрицательных, 0, 0, 0)
КОН Задание.
Var n: integer;
var heigth: real;
begin
heigth := 120;
writeln('n = ');
readln(n);
for var i := 1 to n do
heigth := heigth * 1.02;
writeln('Heigth = ',heigth);
end.
var n: integer;
var heigth: real;
begin
heigth := 120;
writeln('n = ');
readln(n);
repeat
begin
heigth := heigth * 1.02;
n := n - 1
end
until n = 0;
writeln('Heigth = ',heigth);
end.
Var
x, y, d : real;
begin
read (x, y);
d := sqr (x) + sqr (y);
read (x, y);
if d > sqr (x) + sqr (y) then write ('Вторая ближе') else write ('Первая ближе');
end.
Чтобы сумма переменных была равна нулю (т.е. была ложна), нужно чтобы каждый элемент был равен нулю.
X1=0
X2=1
X3=0
X4=1
X5=1
X6=1
X7=1
Следовательно существует всего лишь один набор чисел.
<h2>Код</h2>
#include <iostream>
#include <fstream>
#include <math.h>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int x = 0, y = 0;
double R = 0;
cout << "y = "; cin >> y;
cout << "x = "; cin >> x;
R = abs(pow(pow(sin(y), 2.0) + 6.835, 1.0/2) + exp(x));
ofstream outputResult("output.txt");
outputResult << R;
outputResult.close();
}
<h2>Проверка</h2>
[Скриншот]
Файл сохраняется в папке с файлом проекта.