Ответ:
2000
Объяснение:х делится без остатка на 4
И 100, или делится на 400 без остатка, к данному условию подходит только число 2000
Var
n,x:string;
i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=length(n) downto 1 do x:=x+n[i];
writeln('Обратное число: ',x)
<span>end.
или можно так:
</span>var
n:string;
begin
write('Введите число n: ');
readln(n);
writeln('Обратное число: ',ReverseString(n) )
end.
Const n= 10;
var i,m: integer;
aa:array[1..n] of integer;
begin m:= 1;
for i:= 1 to n do
begin
aa[i]:= random(100);
if (aa[i] mod 2 = 0) then m:= aa[i] * m;
end;
writeln(m);
end.
Ввода: микрофон, джойстик, цифровой микроскоп, дисковод, веб камера, цифровой фотоаппарат
Вывода: видеопроектор, плоттер
Var
l,i:integer;
s,w:string;
prt:boolean;
c:char;
begin
{ s:=' Арбуз вагон барабан Goodday dummy. '; }
Write('Введите строку: ');
Readln(s);
l:=Pos('.',s);
s:=Copy(s,1,l-1)+' ';
i:=1;
prt:=False;
w:='';
while i<=l do
begin
c:=s[i];
if c=' ' then
begin
if prt then
begin
if Length(w)>2 then Write(Copy(w,1,Length(w)-2),' ');
w:='';
prt:=not prt
end
end
else
begin
w:=w+s[i];
prt:=True
end;
Inc(i)
end;
Writeln
end.