Если положительные, то везде одинаково
для 6:
<span>110
</span>для 19
<span>10011</span>
var x: integer;
begin
write('Введите число: ');
readln(x);
if x mod 2=0 then write('число четное')
else write('число нечетное');
end.
var m,k:integer;
n:real;
begin
writeln('Введите n и m через пробел:');
read(n,m);
k:=0;
writeln('Шаг ',k,', n=',n,', m=',m);
while m >= 6 do begin
m:=m-2;
n:=n*2;
k:=k+1;
writeln('Шаг ',k,', n=',n,', m=',m);
end;
writeln('n=',n,', m=',m);
end.
Результат:
Введите n и m через пробел:
1 10
Шаг 0, n=1, m=10
Шаг 1, n=2, m=8
Шаг 2, n=4, m=6
Шаг 3, n=8, m=4
n=8, m=4
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := Frac(Abs(ReadReal('Введите исходное число:'))).ToString;
var k := ReadInteger('Введите значение k:');
var (s1, s2) := (x[3:3 + k], x[3 + k:3 + 2 * k]);
if s1.Select(t -> t.ToDigit).Sum = s2.Select(t -> t.ToDigit).Sum then
Println('Суммы равны')
else
Println('Суммы не равны')
end.
<h3>Введите исходное число: -542.6327288323</h3><h3>Введите значение k: 3</h3><h3>Суммы не равны </h3>
614400 килобайт, надо просто кол-во символов умножить на кол-во строк, а потом полученный ответ надо умножить на кол-во страниц