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
Bài 1:
uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=10 to 50 do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Bài 2:
uses crt;
var a,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+i*(i+2);
writeln(a);
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.
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 SumOfNumbers;
uses crt;
var
n, i, sum: integer;
numbers: array[1..100] of integer;
begin
clrscr;
write('Enter n: ');
readln(n);
// Tạo mảng các số tự nhiên từ 1 đến n
for i := 1 to n do
numbers[i] := i;
// Tính tổng các số tự nhiên từ 1 đến n
sum := 0;
for i := 1 to n do
sum := sum + numbers[i];
writeln('The sum of the first ', n, ' natural numbers is: ', sum);
readln;
end.
Câu 6:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
5:
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=0 to n do
if i mod 2=1 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln(dem);
readln;
end.
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
write(a+b);
readln;
end.
Câu 2:
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
writeln(a+b-c);
readln;
end.
Câu 3:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a-b);
readln;
end.
Câu 4:
uses crt;
var x,y,z:integer;
begin
clrscr;
readln(x,y,z);
writeln((x+y)*z);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a,b,c,d,t;
int main()
{
cin>>a>>b>>c>>d;
t=a+b+c+d;
cout<<t;
return 0;
}
Em tham khảo nhé.
Đây là chương trình tìm tổng A:
```
var n, A: real;
write('Nhap vao so n: ');
readln(n);
A := 0;
for var i := 1 to Round(n) do
begin
A := A + 1/i;
end;
writeln('Tong A la: ', A:0:2);
```
Giải thích chương trình:
1. Sử dụng lệnh `readln` để nhập giá trị `n` từ bàn phím.
2. Khởi tạo biến `A` là 0.
3. Sử dụng vòng lặp `for` để tính tổng từ 1 đến `n`.
4. Cộng giá trị của 1/i vào biến `A`.
5. In ra giá trị của `A` với độ chính xác 2 chữ số thập phân bằng lệnh `writeln`.
program giaitin_hoc24;
uses crt ;
var a,n : real;
A:real;
begin
clrscr;
write(' a,n : ');
readln(a,n);
A:=A+ axp(n) ;
write('A= ', A:6:2);
readln
end.
program bai1;
var i,a,n,s,t:longint;
f1,f2:text;
function amux(a,x:longint):longint;
var s,i:longint;
begin
s:1;
for i:=1 to x do
s:=s*a;
amux:=s;
end;
begin
assign(f1,'bai1.inp';reset(f1);
assign(f2,'bai1.out');rewrite(f2);
read(f1,a);readln(f1,n);
s:=0;
for i:=1 to n do
begin
t:=amux(a,i);
s:=s+t;
end;
write(f1,s);
close(f1);close(f2);
end.
Xin lỗi bạn, nick mình có khả năng đang bị hack
Bạn nào trả lười được tặng 1GP nè, trả lời nhanh có khi còn được 2GP đấy
Bà con mại zô
mik ko viết ct con nha vì nó dài,phức tạp và rối
var a,n,i:integer;
t:real;
begin
write('a=');readln(a);
write('n=');readln(n);
t:=0;
for i:=1 to n do
t:=t+exp(ln(a)*n)-1;
writeln(' Tong la: ',t);
readln;
end.
var a,n,i:integer;
t:real;
begin
write('a=');readln(a);
write('n=');readln(n);
t:=0;
for i:=1 to n do
t:=t+exp(ln(a)*n)-3.5;
writeln(' Tong la: ',t);
readln;
end.
hình như k đúng
Nguyễn Lê Phước Thịnh 2 bạn kia đúng ko?? ><
làm nè
k có hàm axp nha
Làm lại nãy làm nhầm
kéo lên xem lại cmt, đứa nào kêu kệ z ta :))
chạy của nó ch
1GP cho bạn nào trả lời được câu này
@Đoàn Gia Khánh Tú Nguyễn B (Erik) Trương Quang Dũng
chết chắc
Hùng Nguyễn sao hả?? m làm đi, t tặng GP cho
làm việc t nhờ chưa Nguyễn Nhật Minh
Hùng Nguyễn rồi, nhờ t mà nó ns giọng ông nội thế đấy ==
à! bạn Ngố làm việc mình nhờ chưa vậy bạn
Hùng Nguyễn rồi rồi, xem đi, mất rồi mà
@Luân Đào nốt luôn cậu
hỏi ngu vãi
đéo
hay
ai biểu hot quá chi zợ :))
ủa? mk nhớ cái câu này là mk box lên câu hỏi hay, mk ns mk tặng GP nè, vậy câu trl của mk đâu rồi @@
Nguyễn Nhật Minh: câu này mà cậu tặng 1 GP à
câu nàyhơi khó đối với lớp 8 nha .mình ko biết làm được hay ko nhưng theo quan điểm của mình lớp 8 mà viết chương trình con là khá khó cậu cho thêm thời gian đi
Đoàn Gia Khánh khó mới tặg GP, dễ ai tặng làm j bạn :D
Nguyễn Nhật Minh cái này là trình độ tin học cao mới làm được nha .thật luôn
Đoàn Gia Khánh thế thì mk sẽ đợi vậy