Ответы и объяснения

2013-06-14T17:53:10+04:00

1)

var
n:integer;
begin
repeat
write ('Введите число: ');readln(n);
until (n>=100) and (n<=999);
if ((n mod 10)=(n div 10 mod 10)) or ((n mod 10)=(n div 100)) or ((n div 10 mod 10)=(n div 100)) then
writeln (Результат: есть одинаковые цифры') else writeln ('Результат: нет одинаковых цифр');
readln;
end.

2)

var
n,i:longint;
begin
write ('Введите N: ');readln(n);
i:=1;
while i<n do begin
if i=1 then i:=1;
write (i,' ');
i:=i*2;
end;

readln;
end.