Нужно провести дебагинг через компьютер на телефоне получить руут права и скачать ТТЛ мастер в плей маркете (если андроид)
4 бит = 4/8 байт = 0,5 байт
1,5 Кб = 1,5*1024 = 1536 байт
1)
Program n1;
var i: integer;
begin
for i:=1 to 5 do writeln('Иван Иванов');
end.
2)
Program n2;
var i,sum,n: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+i;
writeln(sum);
end.
3)
Program n3;
var i,sum,n: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+i*i;
writeln(sum);
end.
4)
Program n4;
var a: integer;
begin
readln(a);
while a<>0 do readln(a);
end.
<span>var x,y:real;
begin
write('x=');
readln(x);
if x<=-1 then y:=1
else if(x>-1)and(x<=2) then y:=x
else y:=1/(x*x);
write('y=',y:0:2);
readln
end.
</span>