И че дальше я не понял задание
1 задача:
var n:integer;
x:real;
begin
writeln ('Введите число X'); readln(x);
writeln ('Введите максимальную степень числа X'); readln(n);
for n:=1 to n do
begin
writeln ('x= ',exp(ln(x)*n));
end;
<span>end.
----------------------
2 задача:
const x=2;
var n:integer;
begin
writeln ('Введите максимальную степень числа 2'); readln(n);
for n:=1 to n do
begin
writeln ('x= ',exp(ln(x)*n));
end;
<span>end.
--------------------
Просто интересно, почему кто-то выполняет такие задания ЛЕТОМ?о_О</span></span>
Если ты забыл ключ то 2 варианта:
1. Ты все удаляешь с него через рекавети
2.Через fastboot ставим кастомное рекавети (twrp cwm), идём по пути /data/system/ и удаляем эти файлики:gesture.key,locksettings.db,locksettings.db-wal,locksettings.db-shm
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrGen(ReadInteger('n='), i -> (i + 1) * 6);
a.Println;
Println('Среднее', a.Average)
end.
<h3>n= 13</h3><h3>6 12 18 24 30 36 42 48 54 60 66 72 78</h3><h3>Среднее 42 </h3>
Program zzz;
var days:integer;
var discount, sum:real;
var days2:integer;
begin
readln(days, discount, sum);
days2 := 0;
sum := 0;
discount := discount / 10;
while( days2 <= days ) do begin
sum := sum + (sum * discount); {я не до конца понял задание, посему, скорее всего, придется тут менять}
sum := sum + 3;
days2 := days2 + 1;
end;
writeln('Ответ: ', sum);
<span>end.</span>