Если ты забыл ключ то 2 варианта:
1. Ты все удаляешь с него через рекавети
2.Через fastboot ставим кастомное рекавети (twrp cwm), идём по пути /data/system/ и удаляем эти файлики:gesture.key,locksettings.db,locksettings.db-wal,locksettings.db-shm
Var
a, b, c: real;
begin
write('Стороны треугольника: ');
read(a, b, c);
write('Площадь треугольника: ', sqrt((((a + b + c) / 2)) * (((a + b + c) / 2)-a) * (((a + b + c) / 2)-b)*(((a + b + c) / 2)-c)));
end.
var
num: integer;
begin
write('Введите двузначное число: ');
read(num);
write('Произведение чисел данного числа: ', (num MOD 10) * (((num MOD 100)-(num MOD 10)) / 10));
end.
Var d,v,i1,i2:byte;
a:array[1..3,1..4] of integer;
begin
for i1:=1 to 3 do
for i2:=1 to 4 do
begin
read(a[i1,i2]);
if a[i1,i2]>=0 then d:=d+1; else v:=v+1;
end;
writeln('Dodatnih - ',d,' Vidyemnuh - ',v);
<span>end.</span>
Если взять массив от 1 до 20 то программа примерно выглядит так:
Program primer;
Var
A: array [1..20] of real;
i:integer;
Begin
For i:=1 to 20 do
Begin
a[i]:=i/2;
Write(a[i],'|');
End;
End.
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
5.To(25).Println
end.