6
сначала 33, а потом по центрам, ну кароч знаешь
1) 16х=128 кб - переведём кб в бит 128 кб = 128 *1024 * 8 = <span>1048576</span>
дальше проще 16х=<span>1048576</span>
х=<span>1048576</span> : 16
х=<span>65536</span>
2) 8х=32 кб - так же переводим в биты 32кб=32*1024*8=<span>262144</span> бит
8х=262144
х=262144 : 8
х=<span>32768</span>
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadReal3('Введите три числа:');
if b.Between(a,c) then (a,b,c):=(2*a,2*b,2*c);
if (a<0) or (b<0) or (c<0) then (a,b,c):=(Abs(a),Abs(b),Abs(c));
Writeln('a=',a,', b=',b,', c=',c)
end.
Пример
Введите три числа: 3.6 -5.2 8
a=3.6, b=5.2, c=8
Первый оператор читает с клавиатуры три вещественных числа и помещает их в переменные a,b,c.
Второй оператор проверяет, находится ли второе число (b) между остальными двумя (может и совпадать с одним из них). Если да, то значение каждой переменной удваивается.
Третий оператор проверяет, есть ли среди введенных чисел хоть одно отрицательное. Если есть, значения заменяются их модулями (становятся положительными).
И в конце следует вывод результатов.
#include <iostream>
#include <cmath>
using namespace std;
void isArmstrong(const int number)
{
int origNum, num, rem, sum = 0;
origNum = number;
num = origNum;
while(num != 0) {
rem = num % 10;
sum += pow(rem, 3);
num /= 10;
}
if(sum == origNum)
cout << origNum << " is an Armstrong number.";
else
cout << origNum << " is not an Armstrong number.";
}
int main()
{
isArmstrong(153);
return 0;
}
_________________________
С проверкой https://ideone.com/keY6PS
Ответ:
1. Pascal
2. в настоящий момент: Embarcadero
3. Save All... (Shift + Ctrl + S)
4. File -> New
5. Первая создаваемая форма в проекте
меняется: Project -> Opion -> Forms
6. TForm.Caption
7. Project -> Opion -> Application: Load Icon
8. Show; Hide; Close;
9. TLabel
10. TEdit
11. TLabel.Caption
12. TLabel.Alignment
13. TLabel.Layout;
14. TMemo.Lines
15. s := '';
Delete (s: String, Index: Integer; Count: Integer)
Insert (Substr: string; Dest: string; Index: Integer);
16. PasteFromClipboard CopyToClipboard
17. TEDit.Text;
