Uses crt;
var
k: integer;
x, s, a: real;
begin
ClrScr;
Write('x=');
Readln(x);
a := x;
s := a;
k := 3;
while k < 13 do
begin
a := a * (-1) * x * x / k / (k - 1);
s := s + a;
k := k + 2;
end;
writeln('s=', s:5:6);
Readkey;
end.
Можно использовать другие команды? Например Trunc?
Если да, то вот:
var i,j,n:integer;
s:real;
begin
readln(i,j);
s:=i/j;
n:=i-j*Trunc(s); {Функция Trunc выделяет целую часть}
writeln(n);
<span>end.
Если нельзя пользоваться Trunc, то вот другое решение:
var i,j:integer;
s,m:real;
begin
readln(i,j);
m:=i/j;
s:=m;
while s>=1 do s:=s-1;
m:=m-s
;writeln(i-j*m;);
<span>end.</span></span>
Если фразу "Практическая работа номер 1" нужно было перевести в двоичный код, то вот: 1101000010011111110100011000000011010000101100001101000010111010110100011000001011010000101110001101000110000111110100001011010111010001100000011101000010111010110100001011000011010001100011110010000011010001100000001101000010110000110100001011000111010000101111101101000110000010110100001011000000100000110100001011110111010000101111101101000010111100110100001011010111010001100000000010000000110001
Количество цифр: 400
Учебник 56 бит понял аааааааааауууууууууу