Var
x: real;
begin
readln(x);
if x=0 then exit;
write(1/x);
end.
Не понимаю, зачем тут repeat
Исправленная:
VAR P:integer;
begin
write('введите пароль');
read (P);
if p=1998 then write ('Молодец') else write ('Пароль не верен');
end.
Var ar:array[1..12] of integer;
ar2:array[1..12] of integer;
i,k:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 12 do
begin;
ar[i]:=random(30);
write(ar[i]:4);
if ar[i] mod 2=0 then
begin;
inc(k);
ar2[k]:=i;
end;
end;
writeln;
writeln('Final array:');
for i:=1 to k do
write(ar2[i]:4);
end.
Var n,s,a,m:longint;
begin
readln(n,s);
m:=10;
if s mod n=0 then a:=s else a:=s*10;
while a mod n<>0 do
if a mod m=(m-1)
then begin m:=m*10; a:=s*m; end
else a:=a+1;
writeln(a);
end.
Пример:
123 16
<span>16113</span>