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.
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long x,n;
int main()
{
cout<<x<<n;
cout<<pow(x,n);
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
long long x,i,n,ln;
int main()
{
ln=LLONG_MIN;
cin>>n;
for (i=1; i<=n; i++)
{
cin>>x;
ln=max(ln,x);
}
cout<<ln;
return 0;
}
C1:
khai báo:
program hieu_a_va_b ("tự đặt tên cái này ko cần thiết)
uses crt;
var a, b : integer
phần thân:
begin
writeln ("nhap so a"); read(a);
writeln ("nhap so b"); read(b);
writeln ("hieu cua hai so la: a - b=" , a - b);
end.
C2:
khai báo:
program tinh_ba_so
uses crt;
var a, b, c : integer
phần thân:
begin
writeln ("nhap so a"); read(a);
writeln ("nhap so b"); read(b);
writeln ("nhap so c"); read(c);
writeln ("ket qua cua phep tinh a+b-c la" , a+b-c);
end.
C3:
khai báo:
program tinh_ba_so
uses crt;
var x, y, z : integer
phần thân:
begin
writeln ("nhap so x"); read(x);
writeln ("nhap so y"); read(y);
writeln ("nhap so z"); read(z);
writeln ("ket qua cua phep tinh (x+y)*z la") , (x+y)*z);
end.
nhớ chạy thử chương trình nha. xem có lỗi ko.
(nhớ tick cho mk nha)
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a-b;
return 0;
}
var m,n: integer;
begin
writeln(' nhap so nguyen a: ');
read(a);
writeln(' nhap so nguyen b: ');
read(b);
writeln((m + n)/2);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long m,n,x,y;
int main()
{
cin>>m>>n>>x>>y;
cout<<min(m,min(n,min(x,y)));
return 0;
}
1:
uses crt;
var b,c:integer;
begin
clrscr;
write('nhap b='); readln(b);
write('nhap c='); readln(c);
if b=0 then
if c=0 then writeln('phuong trinh co vo so nghiem')
else writeln('phuong trinh vo nghiem')
else writeln('phuong trinh co nghiem x='-c/b:4:2);
readln;
end.
2:
uses crt;
var i,s,n:integer;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln('tong cac so chan trong khoang tu 1 toi ',n,' la: ',s);
readln;
end.
3:
uses crt;
var x,lt:real;
n,i:integer;
begin
clrscr;
write('x='); readln(x);
write('n='); readln(n);
lt:=1;
for i:=1 to n do
lt:=lt*x;
writeln('luy thua cua ',x,'^',n,' la: ',lt:4:2);
readln;
end.
uses crt;
var x,n,i:integer;
lt:longint;
begin
clrscr;
write('co so x='); readln(x);
write('so mu n='); readln(n);
lt:=1;
for i:=1 to n do
lt:=lt*x;
writeln(x,'^',n,'=',lt);
readln;
end.