tính s=(-1)^1*1+(-1)^2*2+(-1)^3*3+...+(-1)^n*n
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
program vd2;
uses crt;
var x,y:integer;
S:real;
begin
readln(x,y,S);
S:=(x+y+5)/3;
write(S);
readln;
End.
Program Tinh_trungbinhcong;
Uses CRT;
Var a,b: Byte; TBC: Realn -> SỬA: Var a,b: Byte; TBC: Real;
Begin
Clrscr;
Write('Nhap gia tri a = ');Readln(a);
Write('Nhap gia tri b = ');Radln(b);
TBC := (a + b)/2;
Writeln('Trung binh cong cua ',a, 'va',b, ' = ', TBC:4:2); Readln;
End.