Program tovar;
Var s, n, c: integer;
begin
Write ('Сколько единиц товара закупили?');
Read (n);
Write ('Какова цена товара?');
Read (c);
s:=c*n;
Write ('Стоимость общей партии товара равна', s, 'руб.');
end.
................................................
Возникновение 8-ной системы связывают с такой техникой счета на пальцах, когда считались не пальцы, а промежутки между ними (их всего восемь).
...
while x<>1 do
begin
x:=x div 2;
inc (t);
end;
write (t);
...
P.S. твое врем я это степень двойки, а именно
Задание 1 во вложении.
Задание2.
const
m = 20;{максимальное количество элементов}
var
a: array[1..m] of real;
i, n: integer;
begin
Write('Введите количество элементов (от 1 до 20): ');
Readln(n);
Writeln('Вводите через пробел элементы массива');
for i := 1 to n do
begin
Read(a[i]);
a[i] := sqr(a[i])
end;
Writeln('Результирующий массив:');
for i := 1 to n do Write(a[i]:0:4, ' ');
Writeln
end.
Тестовое решение:
Введите количество элементов (от 1 до 20): 5
Вводите через пробел элементы массива
1.3 2.7 -4 4.23 0
Результирующий массив:
1.6900 7.2900 16.0000 17.8929 0.0000
