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 bai1;
uses crt;
var CV ,a,b,c: real
begin
clrscr;
write('nhap chieu dai canh a =');
readln(a);
write('nhap chieu dai canh b =');
readln(b);
write('nhap chieu dai canh c =');
CV:=a+b+c;
writeln('Chu vi cua tam giac =' , CV);
readln
end.
program bai2;
uses crt;
var a,b: integer;
begin
clrscr;
write('nhap so thu nhat ='); readln(a);
write('nhap so thu hai ='); readln(b);
writeln('Tong =' ,a+b);
writeln('Hieu =' ,a-b);
readln
end.
a)
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
b)
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<t;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,x,s=1,i;
cin>>n;
for (int i=1; i<=n; i++)
{
cin>>x;
if (x<0) s=s*x;
}
cout<<s;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
t+=x;
}
cout<<t;
return 0;
}
uses crt;
var a:array[1..100]of integer;
n,i,t1,t2:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
writeln;
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
writeln;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t1:=t1+a[i]
else t2:=t2+a[i];
end;
writeln(t1);
writeln(t2);
readln;
end.
Câu 3:
Program HOC24;
var i,n: integer;
a: array[1..32000] of integer;
t: longint;
begin
write('Nhap N : '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
write('Tong ac phan tu le trong mang la : ');
t:=0;
for i:=1 to n do if a[i] mod 2<>0 then t:=t+a[i];
write(t);
readln
end.
1:
uses crt;
var a:array[1..100]of integer;
i,n: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
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
s:=1;
for i:=1 to n do s:=s*a[i];
writeln(s:0:0);
readln;
end.
3:
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
if a[i] mod 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.
3) var a,b:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
if (a<b) then write(' Thu tu tang dan cua 2 so la: ',a,' va ',b)
else write(' Thu tu tang dan cua 2 so la: ',b,' va ',a);
readln;
end.
1)
var a,b:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
writeln(' Tong cua ',a,' va ',b,' la ',a+b);
writeln(' Hieu cua ',a,' va ',b,' la ',a-b);
writeln(' Tich cua ',a,' va ',b,' la ',a*b);
if b<>0 then writeln(' Thuong cua ',a,' va ',b,' la ',a/b);
readln;
end.
1:
uses crt;
var a,b,du,thuong:integer;
begin
clrscr;
write('nhap so bi chia:'); readln(a);
repeat
write('nhap so chia:'); readln(b);
if b=0 then writeln('ban da nhap sai,yeu cau ban nhap lai');
until b<>0;
du:=a mod b;
thuong:=a div b;
writeln('so du cua phep chia ',a,' cho ',b,' la: ',du);
writeln('thuong cua phep chia ',a,' cho ',b,' la: ',thuong);
readln;
end.
2:
uses crt;
var a,b,tam:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
writeln('gia tri luc dau cua a la: ',a);
writeln('gia tri luc dau cua b la: ',b);
tam:=a;
a:=b;
b:=tam;
writeln('gia tri sau khi doi cua a la: ',a);
writeln('gia tri sau khi doi cua b la: ',b);
readln;
end.
3:
uses crt;
var a:integer;
t:longint;
begin
clrscr;
write('nhap so luong don gia: '); readln(a);
t:=a*50000;
writeln('tong so tien la: ',t);
readln;
end.
4:
uses crt;
var a,b,t:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
t:=a+b;
writeln('tong cua hai so ',a,' va ',b,' la: ',t);
readln;
end.
5:
uses crt;
var a,b,cv:integer;
begin
clrscr;
repeat
write('nhap chieu dai:'); readln(a);
write('nhap chieu rong:'); readln(b);
if (a<=b) or (a<=0) or (b<=0) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (a>b) and (a>0) and (b>0);
cv:=a*b;
writeln('chu vi hinh chu nhat la: ',cv);
readln;
end.
6:
uses crt;
var a,cv:integer;
begin
clrscr;
repeat
write('nhap canh hinh vuong:'); readln(a);
if a<=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until a>0;
cv:=a*4;
writeln('chu vi hinh vuong co canh ',a,'cm la: ',cv);
readln;
end.
7:
uses crt;
var a,b,thuong:integer;
begin
clrscr;
write('nhap so bi chia: '); readln(a);
repeat
write('nhap so chia: '); readln(b);
if b=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until b<>0;
thuong:=a div b;
writeln('thuong cua phep chia ',a,' cho ',b,' la: ',thuong);
readln;
end.
8:
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a<b then writeln(a,' be hon ',b);
if a>b then writeln(a,' lon hon ',b);
if a=b then writeln(a,' bang ',b);
readln;
end.