Он выдерживает предметы на себе
Var
n, k: integer;
a, b, i: integer;
begin
read(n);
k := 0;
read(a);
for i := 2 to n do
begin
read(b);
if (a = 2) and (b = 2) then
k := k + 1;
a := b
end;
writeln(k)
<span>end.</span>
//Pascal ABC.NET v3.1 сборка 1172
Var
a,b:integer;
begin
readln(a);
b:=a mod 10*10+a div 10;
writeln(b);
end.
Пример ввода:
12
Пример вывода:
21
VAR
A: ARRAY [1..10] OF INTEGER;
i, sum: INTEGER;
sr: REAL;
BEGIN
sum := 0;
FOR i := 1 TO 10 DO READ (A[i]);
FOR i := 1 TO 10 DO sum := sum + A[i];
sr := sum/10;
WRITELN ('Среднее арифметическое = ', sr);
END.