РЕШИТЕ ВСЁ! БУДУ ОЧЕНЬ БЛАГОДАРНА!! Информацию на экран нельзя вывести с команды: *

1. write(a);

2. writeln(a);

3. readln(a).

Ввести данные a, b c клавиатуры можно с команды: *

1. readln(a,b);

2. readln(a+b);

3. readln a,b.

В окне вывода результатом выполнения команды write(’cумма чисел 50+20=’) будет: *

1. cумма чисел 50+20=;

2. cумма чисел 50+20=70;

3. cумма чисел =70.

В окне вывода результатом выполнения команды write(’cумма чисел’, 300+500) будет: *

1. cумма чисел 800;

2. cумма чисел=800;

3. cумма чисел800

Какие из следующих последовательностей символов можно отнести к командам присваивания *

1. с:=0;

2. a+2:=b;

3. a+с=–bd;

4. -х:=3 * x.

Какая запись на языке программирования соответствует словесному выражению «значение переменной b увеличено на 3»: *

1. b:=b/3;

2. b:= b + 3;

3. b:= b * 3;

4. b:= b* b b.

Значение переменной b равно 5. Какую команду надо выполнить, чтобы b стало равно 7:

1. b:=b/2;

2. b:= b + 2;

3. b:= b * 2;

4. b:= b b.

Значение величины z равно 5. Выберите верное утверждение:

1. после выполнения команды z:=3z+z значение z станет равным 40;

2. после выполнения команды z:=zz+z/z значение z станет равным 100;

3. после выполнения команды z:=z+z+z-3 значение z станет равным 12;

4. после выполнения команды z:=1(z-z)1 значение z станет равным 10.

Значение величины z равно 10. Выберите верное утверждение: *

1. после выполнения команды z:=3z+z значение z станет равным 50;

2. после выполнения команды z:=zz+z/z значение z станет равным 100;

3. после выполнения команды z:=z+z+z-3 значение z станет равным 27;

4. после выполнения команды z:=1(z-z)1 значение z станет равным 10

Показать ответ

Ответ:

polinapetrova8

18.12.2022 03:09

#include <iostream>#include <ctime>//Бібліотека для рандомуusing namespace std;int main(){ int array[10];//Масив int Max_Num=0,Min_Num=0;// Мінімальне і Максимальне числа bool Positive_or_negative=0;//Число додатнє чи відємне srand(time(NULL));//Рандом.Кожний раз інший. for(int i=0;i<10;++i) { Positive_or_negative=rand()%2; if(Positive_or_negative==false)//якщо Positive_or_negative==0 { array[i]=-(rand()%10);//Рандом від -10...0 } else { array[i]=rand()%10;//Рандом від 0...10 } if(array[i]>Max_Num)//Пошук макс. числа { Max_Num=array[i]; } if(array[i]<Min_Num)//Пошук Мін. числа { Min_Num=array[i]; } cout<<array[i]<<" "; } cout<<endl<<"Max. number is:"<<Max_Num<<endl;//Вивід максимально числа cout<<"Min. number is:"<<Min_Num<<endl;//Вивід мінімально числа system("pause>>void");//закінчення программи.}

0,0(0 оценок)

Ответ:

Умка2804

15.05.2021 21:33

Без проверки полагаем, что по заданным координатам точек можно построить треугольники.

//PascalABC.Net 3.0, сборка 1111
type
Point=record
x,y:double
end;

function TriangleSquare(A,B,C:Point):double;
begin
Result:=0.5*abs(A.x*(B.y-C.y)+B.x*(C.y-A.y)+C.x*(A.y-B.y))
end;

procedure GetPoint(c:char; var A:Point);
begin
Write('Введите координаты точки ',c,': ');
Readln(A.x,A.y)
end;

var
A:array['A'..'F'] of Point;
i:'A'..'F';
s1,s2:double;
begin
for i:='A' to 'F' do GetPoint(i,A[i]);
s1:=TriangleSquare(A['A'],A['B'],A['C']);
s2:=TriangleSquare(A['D'],A['E'],A['F']);
if s1>s2 then Writeln('Площадь первого треугольника больше')
else
if s2>s1 then Writeln('Площадь второго треугольника больше')
else Writeln('Площади треугольников равны')
end.

Тестовое решение:
Введите координаты точки A: -4 3.7
Введите координаты точки B: -6.3 0
Введите координаты точки C: 10.2 5.93
Введите координаты точки D: 7.143 8.1
Введите координаты точки E: -6 -3
Введите координаты точки F: 7.4 -5.7
Площадь второго треугольника больше

0,0(0 оценок)

Популярные вопросы: Информатика