FOR i = 1 TO 14
s = s + i
NEXT i
<span>PRINT "s=";s</span>
Я бы сделал так:
var a,a1,a2,a3,a4:integer;
begin
write ('Введите четырехзначное число: '); read (a);
a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
writeln ('Первая цифра: ',a1);
writeln ('Вторая цифра: ',a2);
writeln ('Третья цифра: ',a3);
writeln ('Четвёртая цифра: ',a4);
<span>end.
<u>Этот вид более эстетичный</u> ;)
</span>
10101010(2) =170(10)
Решение:
Приведем 10101010 из системы счисления 2 в десятичную систему счисления
101010102=1·2(7) +0·2(6) +1·2(5) +0·2(4) +1·2(3) +0·2(2) +1·2(1) +0·2(0) =170(10)
252(8) =170(10)
Приведем 252 из системы счисления 8 в десятичную систему счисления
252(8)=2·8(2) +5·8(1) +2·8(0) =170(10)
7(16) =7(10)
Приведем 7 из системы счисления 16 в десятичную систему счисления
7(16)=7·16(0) =7(10)
170(10) - 170(10) + 7(10) = 7(10)
Var value, sigma, counter : integer;
<span>Begin
counter := 0;
</span><span>value := 0;
</span><span>sigma := 0;</span>
<span> while counter < 50 Do
</span><span> begin</span>
<span> value := value + 2;
</span><span> sigma := sigma + value;</span>
counter := counter + 1;
<span> end;</span>
<span> writeln(sigma);
</span><span> readln();
</span><span>End.
</span>