3*10в степени 2+2*10 в ст.1+8*10 в ст.0
2*10 в ст3+3*10 в ст.2+4*10 в ст.1 +6*10 в ст.0
9*10 в ст. 3+ 8*10в ст.2+7*10 в ст.1+2* 10 в ст.0+1*10 в ст. -1+2*10 в ст.-2+3*10 в ст.-3
1*10 в ст.4+0*10 в ст.3+0*10 вст.2+1 *10 в ст.1+1*10 в ст. 0
Var
A,B:integer;
S:real;
Begin
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);
S:=0;
For B:= A to B do
S:=S+B*B;
WriteLn('S = ',S);
End.
Поскольку алгоритма нет, имею право ввести свой:)
procedure swap(var a, b: real);
var t: real;
begin
t := a;
a := b;
b := t;
end;
var a, b, c: real;
begin
readln(a, b, c);
if (a > b) then swap(a, b);
if (b > c) then swap(b, c);
if (a > b) then swap(a, b);
writeln(a, ' ', b, ' ', c);
<span>end.
В ответе будет
а = 10
b = 18
с = 26 =)</span>
Вы сейчас примерно классе в 8.
хорошими темами будут системы счисления, кодирование текстовой\графической информации, измерение информации, логические операции и таблицы истинности, логические схемы, программные обеспечения, компьютерные коммуникации.