program Digits;
procedure foo(a: integer);
begin
if a = 0 then exit
else
foo(a div 10);
Print(a mod 10)
end;
var
a: integer;
begin
a := 12345;
foo(a)
end.
Не совсем красиво но без массивов
var cur_num, prev_num: integer;
Begin
Writeln('Введите последовательность закончив ее нулем');
read(prev_num);
repeat
read(cur_num);
if cur_num * prev_num > 0 then
writeln('Пара = ', cur_num * prev_num);
prev_num := cur_num;
until cur_num = 0;
End.
N=2^i
256=2^8
i=8 (один символ кодируется восемью битами или одним байтом)
I=ki=256*1=256 байт
Program n1;
var n: real;
begin
write('введите число: ');
readln(n);
if n>0 then writeln(n*n) else writeln(n*n*n);
end.