Var a,b,c,d,e:integer; begin writeln('введите четырёхзначное число'); readln(a); b:=a mod 10; a:=a div 10; write(b); c:=a mod 10; a:=a div 10; write(c); d:=a mod 10; write(d); a:=a div 10; write(a); end.
open System; [<EntryPoint>] let main argv = let rec getNumberFromConsole _ = printf "Please enter a correct 4-digits number?\n" let maybeInt = Console.ReadLine(); let mutable value = 0; if Int32.TryParse(maybeInt, &value) && value >= 1000 && value <= 9999 then value else (getNumberFromConsole null) let rec power = function | (x, 0) -> 1 | (x, n) -> x * power (x, n-1) let getDigit sourceNumber digit = (sourceNumber / (power (10, digit))) % 10 let number = getNumberFromConsole null let resultNumber = getDigit number 0 * 1000 + getDigit number 1 * 100 + getDigit number 2 * 10 + getDigit number 3 printf "%d" resultNumber Console.ReadKey true |> ignore 0
Const n = 1000; var massiv : array[1..n] of integer; countOfElements, maxElement, i, m, j : integer; begin write('Введите количество элементов массива: '); readln(countOfElements); writeln('Введите элементы массива'); for i := 1 to countOfElements do read(massiv[i]); writeln(); maxElement := massiv[1]; for i := 1 to countOfElements do if (maxElement < massiv[i]) then maxElement := massiv[i]; m := countOfElements; i := 1; while i <= m do if massiv[i] = maxElement then begin for j := i to countOfElements - 1 do massiv[j] := massiv[j+1]; m := m - 1; end else i := i + 1; massiv[countOfElements] := 0; write('Максимальный элемент: '); writeln(maxElement); for i := 1 to countOfElements do write(massiv[i]:4); end.
// PascalABC.Net 3.0, сборка 1066 type Point=record x,y:double; end;
procedure GetPoint(c:char; var M:point); begin Write('введите координаты точки ',c,': '); Read(M.x,M.y) end;
function L(A,B:Point):double; begin Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y)) end;
function S(A,B,C:Point):double; var p,la,lb,lc:double; begin la:=L(A,B); lb:=L(B,C); lc:=L(C,A); if (la+lb>lc) and (la+lc>lb) and (lb+lc>la) then begin p:=0.5*(la+lb+lc); Result:=sqrt(p*(p-la)*(p-lb)*(p-lc)) end else Result:=0 end;
var A,B,C,D:Point; S1,S2:double;
begin GetPoint('A',A); GetPoint('B',B); GetPoint('C',C); GetPoint('D',D); S1:=S(A,B,C); if S1=0 then Write('По точкам А,В,С нельзя построить треугольник') else begin S2:=S(C,D,A); if S2=0 then Write('По точкам C,D,A нельзя построить треугольник') else Writeln('Площадь четырехугольника равна ',S1+S2) end end.
Тестовое решение: введите координаты точки A: -5 -7 введите координаты точки B: -2 4 введите координаты точки C: 5 9 введите координаты точки D: 9 -3 Площадь четырехугольника равна 123
begin
writeln('введите четырёхзначное число');
readln(a);
b:=a mod 10;
a:=a div 10;
write(b);
c:=a mod 10;
a:=a div 10;
write(c);
d:=a mod 10;
write(d);
a:=a div 10;
write(a);
end.