Пусть первоначально число имело вид abc, После зачеркивания второй цифры оно превратилось в ac, а когда зачеркнутую b приписали справа, получилось acb=456, откуда понятно, что фактически поменяли местами цифры b и c. Поэтому программа должна получить число (456) и поменять в нем последнюю цифру с соседней, получив 465.
<u>MS DOS QBasic 1.0</u>
DIM r AS INTEGER
CLS
INPUT r
b = r MOD 10
a = INT(r / 100)
c = INT(r / 10) MOD 10
r = 100 * a + 10 * b + c
PRINT "x="; r
1) По столбцу "Кол. уч." числа : 22, 33, 43, 15, 30
в форматах: числовой 0 знаков после запятой (целые), 2 знака, дата, процентный, числовой 0 знаков
2) Когда числа представлены с точностью до сотых и их диапазон изменения мал, например 4.77...325.41
Таблица истинности во вложении
Ответ:
program Geom;
program Test_nn;
{$APPTYPE CONSOLE}
{$R *.res}
uses
Math;
var
a: array of Extended;
n, i, c: Integer;
x: Extended;
begin
Write ('Размерность массива = ');
ReadLn (n);
SetLength (a, n);
Randomize;
for i := Low (a) to High (a) do begin
a [i] := (Random (2001) - 1000) / 1000;
Write (a [i] :7 :3);
end;
x := 1;
c := 1;
WriteLn;
for i := Low (a) to High (a) do begin
if a [i] > 0 then begin
Write (a [i] :7 :3);
x := x * a [i];
Inc (c);
end;
end;
WriteLn;
WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);
ReadLn;
end.
1) 26 символов = по другому 2 в 5 степени (с остатком);
2) 240 * 5 = 1200 бит
