var
x, y, a, b, c: real;
t: integer;
begin
read(x);
t := Round(10 * x);
a := t div 100;
b := (t div 10) mod 10;
c := t mod 10;
y := c + b / 10 + a / 100;
Println(y);
end.
Или можно сократить число используемых переменных:
var
x: real;
t: integer;
begin
read(x);
t := Round(10 * x);
Println(t mod 10 + (t div 10 mod 10) / 10 + t div 100 / 100);
end.
<span>1)Program massiv;
</span>
<span>Var mas:array[</span>1..20<span>] of </span>integer;
a,b,i,sum:integer;
<span><span>Begin
</span></span>
sum:=0;
<span>For i:=</span>1 To 20 Do
<span>
begin
</span>
mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}
write(mas[i],' ');
<span>
end;
</span>
Writeln('Введите a,b');
<span>
Readln(a,b);
</span>
<span>For i:=</span>1 To 20 Do
<span>
begin
</span><span>if (mas[i]>a) and (mas[i]<b) Then
sum:=sum+mas[i];
end;
Writeln(sum);
end. 2) <span>Program massiv;
</span><span>Var mas:array[</span>1..20<span>] of </span>integer;
i,min,max,pr:integer;<span><span>Begin
</span></span><span>For i:=</span>1 To 20 Do<span><span>
begin
</span></span>mas[i]:= random(15);
write(mas[i],' ');<span>
end;
Writeln;
</span>min:=30000;
max:=0;
<span>For i:=</span>1 To 15 Do<span><span>
begin
</span></span><span>if mas[i]>max Then max:=mas[i];
if mas[i]<min Then min:=mas[i];
end;
pr:=min*max;
Writeln(pr);
end. </span> 3)<span>Program massiv;</span>Var mas:array[1..20] of integer; a,b,i,k:integer;<span><span>Begin</span></span>For i:=1 To 20 Do<span><span>begin </span></span>mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}write(mas[i],' ');<span>end;</span>Writeln('Введите a,b,k');<span>Readln(a,b,k);</span>i:=1;While i<>20 Do<span><span>begin</span></span>if (mas[i]>a) and (mas[i]<b) and(mas[i] mod k=0) ThenWrite(mas[i],' ');i:=i+1;<span>end; end. </span>4)<span>Var mas:array[</span>1..20<span>] of </span>integer;
i,min,max,pr:integer;<span><span>Begin
</span>randomize;
</span><span>For i:=</span>1 To 20 Do<span><span>
begin
</span></span>mas[i]:= random(100)+1;
write(mas[i],' ');<span>
end;
Writeln;
</span>pr:=1;
<span>For i:=</span>1 To 15 Do<span><span>
begin
</span></span>pr:=pr*mas[i];<span>
end;
Writeln(pr);
end. </span>
</span>
(1+y)*((2*x+sqrt(y)-x-y)/(y+1/(x*x-4)))
var x,y:integer;
begin
x:=3;
y:=9;
writeln((1+y)*((2*x+sqrt(y)-x-y)/(y+1/(x*x-4))));
end.
Type
V = array of integer;
var
i, n, ic, nc, kc, imax, nmax, kmax: integer;
a: V;
begin
write('Введите количество чисел N ');
readln(n);
SetLength(a, n + 1);
writeln('Вводите числа');
for i := 0 to n - 1 do read(a[i]);
writeln;
nmax := -32768;
kmax := 0;
imax := 0;
nc := a[0];
kc := 1;
ic := 1;
for i := 1 to n - 1 do
begin
if a[i] = nc then kc := kc + 1
else begin
if kc < 3 then begin
kc := 1;
nc := a[i];
ic := i
end
else
if kmax <= kc then begin
kmax := kc;
nmax := nc;
imax := ic;
kc:=1;
nc:=a[i];
ic:=i
end
else begin
kc := 1;
nc := a[i];
ic := i
end
end
end;
if kmax <= kc then begin
kmax := kc;
nmax := nc;
imax := ic
end;
writeln('Самая длинная серия содержит ', kmax, ' чисел ', nmax);
for i:=n downto imax+kmax+1 do a[i]:=a[i-1];
a[imax+kmax]:=nmax;
writeln('Модифицированная строка');
for i:=0 to n do write(a[i]:2)
end.
Тестовое решение
Введите количество чисел N 30
Вводите числа
1 2 2 3 4 4 4 5 5 5 6 8 6 6 6 4 8 8 8 8 8 8 3 3 3 3 1 2 3 3 3
Самая длинная серия содержит 6 чисел 8
Модифицированная строка
1 2 2 3 4 4 4 5 5 5 6 8 6 6 6 4 8 8 8 8 8 8 8 3 3 3 3 1 2 3 3
