Что надо делать там вапросы ???
procedure print(a: <em>integer</em>);
var
i: <em>integer</em>;
s: <em>string</em>;
begin
str(a, s);
for i := 1 to length(s) do
writeln(s[i]);
end;
Var
i, n: integer;
x, rez: real;
begin
readln(x, n);
for i:=1 to n do
rez:=rez+sin(i*x)
write(rez);
end.
Если возникнут вопросы или будут ошибки в ходе работы программы, пиши ниже.
Цифры числа всегда меньше основания системы, то есть, для двоичной это 0 и 1, для семеричной это числа от нуля до шести, для десятеричной - от нуля до девяти и т.д.
1503 - бОльшая цифра пять => минимальное основание шесть.
283 - 9
4444 - 5
257 - 8