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.
Если возникнут вопросы или будут ошибки в ходе работы программы, пиши ниже.
Sub My_VBA()
s = 0
Do
n = InputBox("введите число, 0 - конец ввода")
If n > 0 Then s = s + n
Loop Until n = 0
MsgBox "Сумма положительных чисел равна " + Str(s)
End Sub
Блок-схема во вложении
Uses crt;
var i,n:integer;
begin
readln(n);
for i:=1 to 9 do
writeln(i,'x',n,'=',i*n);
end.
Var a, b:real;
begin
writeln('Введите a, b');
readln(a,b);
if a=b then writeln('Ответ: ',-b)
else if a>b then writeln('Ответ: ', a*b+1)
else writeln('Ответ: ', (a-5) /b);
end.