Program abc;
var a:integer;
BEGIN
writeln ('2+1*3=?');
read (a);
if a=5 then
writeln ('Ты молодец')
else ('Не правильно, попробуй еще раз');
END.
в системе счисления с основанием 6
вес разрядов (6)(1)
тогда 40(с основанием 6) = 24 + 0
41(с основанием 6) = 24 + 1
в ответе два числа 24, 25
2) оканчивается на 101
101 = 5
1101 = 13
10101 = 21
следующее уже больше 11101 = 29
3) в троичной системе веса разрядов (9)(3)(1)
21 в троичной системе = 6+1 = 7 в десятичной
121 = 9+6+1 = 16
221 = 18+6+1= 25
следующее уже больше 25-ти
321 = 27+6+1=34
Var n,i,s:integer;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do s:=s+2*i;
writeln('s = ',s);
end.
Пример:
n = 5
s = 30
Команда x:=4 присваивает переменной x значение 4