Ну этот кусок может выглядеть так:
---------------
t:= A;
A:=B;
B:=C;
C:=t;
---------------
Program fofgogjoj;
var
n:integer;
a,s:real;
begin
repeat
Writeln('Введите вещественное число a');
Read(a);
until a>1;
s:=0;
n:=1;
while s<a-1/n do
begin
s:=s+1/n;
Write(n:4);
n:=n+1;
end;
Writeln;
Writeln('s=',s:0:4);
<span>end.
Не советую печатать число большее 10 xD</span>
9^8 - 3^24 -9 = 3^16 - 3^24 - 3^2=3^16 -(3^24+3^2)
3^24 = 1 000...0 (в 3сс) (всего 24 нуля)
3^2 =100 (в 3сс)
3^24 +3^2 = 1 0....0100 (в 3сс) (после старшей единицы 24 знака)
3^16 = 100..0 (в3сс) 16-ть нулей после единицы
1 0000000000....0100 -
10....... 0
------------------------------
0 222222222 0.....100 -----> девять двоек в 3сс.
( 10-1=2(в3сс) (24-16+1=9)
ответ 9
var prod,i:integer;
begin
prod:=1;
for i:=10 to 99 do
if(i mod 15=0) then prod:=prod*i;
writeln(prod)
end.
Random rnd = new Random();
int n = rnd.Next(20);
int[] a = new int[n], b = new int[n];
for (int i = 0; i < n; i++)
{
a[i] = rnd.Next(21) - 10;
Console.Write("{0,4}", a[i]);
}
b[0] = a[0];
Console.Write("\r\n{0,4}", b[0]);
for (int i = 1; i < b.Length; i++ )
{
b[i] = b[i - 1] + a[i];
Console.Write("{0,4}", b[i]);
}
<span>Console.ReadLine();</span>