Я бы сказала калькулятор, потому что и счеты, и абак(Греция), и соробан (Китай), это устройства для счета.
Ответ упирается только в то, что требуется первые счетные устройства
Сначало мы наливаем воду в чайник,или в кастрюлю.Потом мы даём
нагреться воде,при этом вода нагреваеться при взаимодействием с кипением.Вода нагрелась мы берём пакетик чая,и кладём в чашку.
В конце нам надо налить кипячёную воду в чашку.
Ответ:
program arr1; // ввод с клавиатуры
var
i: Integer;
a: array [1..10] of integer;
begin
for i := 1 to 10 do begin
Write ('Введите ', i , 'число: ');
ReadLn (a [i]);
end;
for i := 1 to 10 do
Write (a [i], ' ');
ReadLn;
end.
program arr1; // ввод по формуле (I * 2) можно поменять на другую
var
i: Integer;
a: array [1..10] of integer;
begin
Randomize;
for i := 1 to 10 do
a [i] := i * 2;
for i := 1 to 10 do
Write (a [i], ' ');
ReadLn;
end.
program arr1; // ввод рандомом - это то что на скриншоте экрана, только добавлено Randomize; чтобы числа были не всегда одинаковые
var
i: Integer;
a: array [1..10] of integer;
begin
Randomize;
for i := 1 to 10 do
a [i] := Random (50);
for i := 1 to 10 do
Write (a [i], ' ');
ReadLn;
end.
Объяснение:
1. - поет (потом рычит)
2. - рычит (потом кружится)
3. - кружится (потом машет хвостом)
4. - машет хвостом (потом зевает)
5. - зевает (потом пляшет)
6. - пляшет (потом поет)
Этот цикл длится 6 минут, за 44 минуты лисенок полностью пройдет его 7 раз и останется 2 действия. То есть, последний цикл заканчивается на "пляшет", +1 шаг - рычит, +1 шаг - рычит. Значит, лисенок через 44 минут будет рычать.
Var
X,N:real;
Begin
Write('x = ');ReadLn(x);
Write('n = ');ReadLn(n);
WriteLn('S = ',x*x*x*(1+x*x)+power(x,n));
End.
С помощью функции возведения в степень, при условии, что основание - число вещественное, а показатель - целое.
Function St(O:real;P:integer):real;
Begin
result:=1;
For P:= 1 to P do
result:=result*P;
End;
Var
X:real;
n:integer;
Begin
Write('x = ');
ReadLn(x);
Write('n = ');
ReadLn(n);
WriteLn('S = ',x*x*x*(1+x*x)+St(x,n));
End.
