Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var x, s: real;
n: integer;
begin
read(x, n);
s : = 0.0;
for var i : = 1 to n do
s += i * sin(x);
write(s)
end.
2 var 3 s: string; 4 begin 5 readln(s); 6 while pos('с',s)> 0 do delete(s,pos('с',s),1); 7writeln(s); 8 end.это точно
пщояк 17 27 16 33 17
нщёп 15 27 7 17
Популярные вопросы