Viết chương trình tính tổng: S = 11+14+17+...+68 M.n giúp e vs t4 e thi r :(((
Những câu hỏi liên quan
Cho bài toán: Viết chương trình tính chu vi (CV) và diện tích (S) của hình chữ nhật biết chiều dài a=12, chiều rộng b=8. a) Hãy khai báo các biến cần dùng trong chương trình. M.n giúp e vs ạ:(((
uses crt;
var a,b,cv,s:longint;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
cv:=(a+b)*2;
s:=a*b;
writeln('chu vi cua hinh chu nhat do la:',cv);
write('dien tich cua hinh chu nhat do la:',s);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình con tính tổng, tích, tìm số lớn, số bé trong 2 số nguyên. Gọi thực thi chương trình con ở chương trình chính.
mọi người giúp e để mai e kiểm tra với ạ.
uses crt;
var a,b:integer;
{-------------chuong-trinh-con-tinh-tong---------------------}
function tong(x,y:integer):integer;
begin
tong:=x+y;
end;
{-------------chuong-trinh-con-tinh-tich------------------}
function tich(x,y:integer):integer;
begin
tich:=x*y;
end;
{-----------------chuong-trinh-con-so-lon------------------}
function solon(x,y:integer):integer;
begin
if x>y then solon:=x
else solon:=y;
end;
{-----------------chuong-trinh-con-so-be------------------}
function sobe(x,y:integer):integer;
begin
if x<y then sobe:=x
else sobe:=y;
end;
{--------------------chuong-trinh-chinh-----------------}
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
writeln('Tong la: ',tong(a,b));
writeln('Tich la: ',tich(a,b));
writeln('So lon la: ',solon(a,b));
writeln('So be la: ',sobe(a,b));
readln;
end.
Đúng 1
Bình luận (0)
Bài 1:Viết chương trình con tính căn bậc 2 của x
Bài 2:Viết chương trình con tính tổng S=1+2+3+N...với n nhập từ bàn phím
Giúp e giải gấp với ạ 11h trưa nay e phải nộp bài ạ
Xem chi tiết
Bài 1:
function canbac2(x:longint):real;
begin
canbac2:=sqrt(x);
end;
Bài 2:
function tong(n:longint):longint;
var s,i:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i;
tong:=s;
end;
Đúng 2
Bình luận (0)
Bài 1: Viết chương trình tính tổng các số tự nhiên trong khoảng từ a đến b (Dùng C++) Giúp e vs ạ
viết chương trình nhập vào 2 số tự nhiên a, b từ bàn phím và in ra màn hình hiệu 2 số đó
Giúp e vs ạ mai e thi r
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
writeln('Hieu cua hai so la: ',a-b);
readln;
end.
Đúng 0
Bình luận (1)
Viết chương trình nhập vào 1 dãy số gồm n số nguyên dương + In dãy số ra màn hình + Cho biết dãy có bao nhiêu số chẵn Giúp mình nhanh vs m.n mai mình thi r
Program Tin_hoc;
Uses crt;
Var i,n,dem:integer;
a:array[1..100000] of integer;
Begin
clrscr;
Write('Nhap 1 so nguyen duong n: ');readln(n);
dem:=0;
Writeln('Nhap ',n,' phan tu:');
For i:= 1 to n do
Begin
Write('A[',i,'] = ');
readln(a[i]);
If a[i] mod 2 = 0 then inc(dem);
End;
Writeln('Day vua nhap la:');
For i:= 1 to n do write(a[i],' ');writeln;
Writeln('Day so vua nhap co ',dem,' so chan');
readln;
End.
Đúng 1
Bình luận (0)
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('So so chan la: ',dem);
readln;
end.
Đúng 0
Bình luận (0)
viết đoạn văn(7-10 dòng) trình bày cảm nghĩ của e về người anh hùng cứu nước trong bài thơ(Đập đá ở Côn Lôn).
m.n giúp e vs chiều nay e thi rr
viết chương trình in ra tổng các số nhỏ hơn hoặc bằng n ( với n đc nhập) mai phải thi r mn giúp mk vs
Uses crt;
Var a,b,n:integer; {hoặc real,longint {tùy vào đơn vị của các số có nhỏ hay lớn}}
Begin
Writeln('Nhap so n la:'); Readln(n);
a:=0; b:=0;
While a<=n do
Begin
b:=b+a;
a:=a+1; {chỉ áp dụng khi tính tổng liên tiếp từ 1->n, không áp dụng tính tổng các số chẵn}
end;
Writeln('Vay tong cac so tu 1 -> ',n,' la:',b);
Readln
End.
*Nếu bạn muốn giải theo cách for..do hay tính tổng các số chẵn hay gì gì đó liên quan đến Tin học thì bảo mình nhé* Good luck for you :D :D
Đúng 0
Bình luận (1)
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (1)
viết chương trình tính chu vi, diên tích hình vuông với cạnh a được nhập vào từ bàn phím.❤✿
mn giúp em với ạ T4 em thi rồi!!!
clrscr;
write('nhap canh a: ');readln(a);
P:=a*4;
S:=a*a;
writeln('Chu vi hinh vuong canh a la: ',P);
writeln('Dien tich hinh vuong canh a la: ',S);
Đúng 0
Bình luận (2)
uses crt;
var a,cv,dt:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
until a>0;
cv:=a*4;
dt:=sqr(a);
writeln('Chu vi la: ',cv:4:2);
writeln('Dien tich la: ',dt:4:2);
readln;
end.
Đúng 0
Bình luận (0)