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.
Câu 1 :
a) (a+b)*(a+b)*(d+e)
b) a*x*x+b*x*x+c*x
Câu 2: Mình không hiểu đề lắm? Đặt cái gì cơ?
Câu 3:
Uses crt;
Var S,a,b:real;
Begin
clrscr;
Writeln('Nhap chieu dai a = '); Readln(a);
Writeln('Nhap chieu rong b = '); Readln(b);
S := a*b;
Write('Dien tich hinh chu nhat la ', S );
Readln;
End.
xin lỗi mk lộn nêu qui tắc đặt ngôn ngữ lập trình trong pascal
#include <bits/stdc++.h>
using namespace std;
long long s1,s2,s3,s4,i;
int main()
{
s1=0;
for (i=1; i<=100; i++) s1=s1+i*i;
s2=0;
for (i=1; i<=100; i++) if (i%2==1) s2+=i;
s3=0;
for (i=1; i<=100; i++)
{
if (i%2==1) s3+=i*i;
else s3-=i*i;
}
s4=0;
for (i=1; i<=100; i++)
{
if (i%2==1) s4+=i;
else s4-=i;
}
cout<<s1<<" "<<s2<<" "<<s3<<" "<<s4;
return 0;
}
1.Viết chương trình tính: xa
2.Viết chương trình tính: S=1+2n+3n+....+nn
mong các bạn giúp đỡ.......
Program bai1;
uses crt;
var i,x,a,kq:longint;
Begin
clrscr;
writeln('Chuong trinh tinh X^a');
write('X=');readln(x);
write('a=');readln(a);
kq:=1;
for i:=1 to a do
kq:=kq*x;
writeln(x,'^',a,'=',kq:4);
readln;
end.
bài 2:
Program bai2;
uses crt;
var n,i: integer;
s: real;
begin
clrscr;
write('nhap so n ='); readln(n);
s:=0;
for i:= 1 to n do
s:=s+exp(n*ln(i));
writeln('tong =',s :4:2);
readln;
end.
program bai1;
var i,n,s,t:longint;
function tt(a:longint):longint;
var i,s:longint;
begin
s:=1;
for i:=1 to a do
s:=s*a;
tt:=s;
end;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do
begin
t:=tt(i);
s:=s+t;
end;
write('Tong la: ',t);
readln
end.
tất cả các câu đều là s:=s+i hay s:=s+1/sqr(i)..vân vân bạn ạ
Lời giải:
Bài 1 :
program hotrotinhoc ;
var i,x : integer ;
begin
write('x='); readln(x);
if x mod 2=0 then writeln('Day la so chan') else writeln('Day la so le');
while x<>0 do
begin
write('x='); readln(x);
if x mod 2=0 then writeln('Day la so chan') else writeln('Day la so le');
end;
readln
end.
uses crt;
var i,s,n:integer;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
s:=0;
for i:=1 to n do
if i mod 2=1 then s:=s-i
else s:=s+i;
writeln(s);
end
else writeln('vui long nhap lai');
readln;
end.
s1= n*(n+1)/2
s2= (s1)^2
S3 ( giải = 500es)
1->M
1->A
0->Y
Y+A/M->Y: A/M->A : M+1->M
Ấn n lần kết quả là Y
bạn có thể viết ct chi tiết cho mình được không
program tinh_tong;
uses crt;
var a,i,n:integer;
s:real;
begin
clrscr
writeln ('Nhap a va n lan luot =');
readln(a,n);
s:=1;
for i:=1 to n do s:=a*n^n;
writeln ('Tong s =',s);
readln
end.
# Nhập số tự nhiên n từ bàn phím n = int(input("Nhập số tự nhiên n (n > 1): ")) # Khởi tạo biến tổng S s = 0 # Sử dụng vòng lặp từ 2 đến n để tính từng cụm (i-1 + i^2) for i in range(2, n + 1): s = s + (i - 1 + i**2)
# In kết quả ra màn hình print(f"Tổng S là: {s}")
Dùng vòng lặp từ i = 2 đến n, cộng dồn: S=S+(i−1+i2)S = S + (i-1+i^2)S=S+(i−1+i2) Code C++ #include <iostream>using namespace std;int main() { int n; long long S = 0; cin >> n; for (int i = 2; i <= n; i++) { S += (i - 1 + i * i); } cout << S; return 0;} Ví dụ Nếu n = 4 S=(1+22)+(2+32)+(3+42)S=(1+2^2)+(2+3^2)+(3+4^2)S=(1+22)+(2+32)+(3+42) =(1+4)+(2+9)+(3+16)=35= (1+4)+(2+9)+(3+16)=35=(1+4)+(2+9)+(3+16)=35 Kết quả: 35 Nếu bạn muốn, mình cũng có thể viết Python, Pascal, hoặc công thức rút gọn không cần vòng lặp.