1) 1Кб
2) 2^10байт=1024байт=1Кб
3)2^13байт=8192байт=8Кб
4)2^16байт=65536байт=64Кб
5)2^16бит=65536бит=8192байт=8Кб
Ответ:
const
N = 20;
var
a: array [1..N] of Integer;
i: Integer;
begin
Randomize;
for i := Low (a) to High (a) do begin
a [i] := Random (201) - 100;
Write (a [i], ' ');
end;
WriteLn;
for i := Low (a) to High (a) do begin
if a [i] < 0 then begin
WriteLn ('Первое отрицательное число = ', a [i]);
ReadLn;
Exit;
end;
end;
WriteLn ('Нет отрицательных чисел.');
ReadLn;
end.
1) 1,2,1
Так как: ((5*3)-3)*5=60
2) Сместиться на (0;0) - Но не уверен т.к. условие немного некорректное
Язык С++.
#include <iostream>
using namespace std;
int main() {
int a, b, c;
cin >> a >> b >> c;
if(a + b > c && a + c > b && b + c > a){
if (a == b && a == c && b == c) {
cout << "Равносторонний." << endl;
}
else if (a == b || a == c || b == c) {
cout << "Равнобедренный." << endl;
}
else {
cout << "Разносторонний." << endl;
}
}
else
cout << "Треугольник не существует." << endl;
}
Преобразуем по схеме Горнера, избавляясь от вычисления степени х.
y = 5x²+7x-30 = -30+x(7+5x))
<u>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal('x=');
Writeln('Y=',-30+x*(7+5*x))
end.