var a,b,N,M,k,cn,c1:longint; begin read(a,b); if a>b then N:=b else N:=a; cn:=N mod 10; M:=N; k:=1; while N>0 do begin c1:=N mod 10; k:=k*10; N:=N div 10; end; N:=M-c1*(k div 10)+cn*(k div 10)-cn+c1; writeln('---'); write(N); end.
var s:real; flag,d,m:integer; begin s:=10; d:=1; while s<=100 do begin writeln('d: ',d,' s: ',s); {эта строка не обязательна, выводит на экран ежедневный пробег, как бы для контроля} s:=s+s*0.1; d:=d+1; if s<20 then flag:=d; end; writeln('> 20 km :', flag+1,' day'); writeln('>100 km : ',d); end.
Const nm = 20; nn = 20; var a: array[1..nm, 1..nn] of integer; b: array[1..nm] of integer; i, j, m, n, mina: integer;
begin Write('Введите число строк и столбцов массива: '); Readln(m,n); Randomize; Writeln('Исходный массив'); for i := 1 to m do begin for j := 1 to n do begin a[i, j] := Random(101) - 50; Write(a[i, j]:4) end; Writeln end;
for i:=1 to m do begin mina:=32767; for j:=1 to n do if mina>a[i,j] then mina:=a[i,j]; b[i]:=mina end;
Writeln('Сформированный массив'); for i:=1 to m do Write(b[i]:4); Writeln end.
var a,b,N,M,k,cn,c1:longint;
begin
read(a,b);
if a>b then N:=b else N:=a;
cn:=N mod 10;
M:=N;
k:=1;
while N>0 do
begin
c1:=N mod 10;
k:=k*10;
N:=N div 10;
end;
N:=M-c1*(k div 10)+cn*(k div 10)-cn+c1;
writeln('---');
write(N);
end.