Viết chương trình nhập 3 số từ bàn phím và hiển thị kết quả ra màn hình tổng và tích của 3 số đó
Đề 1: Viết chương trình nhập dãy số n từ bàn phím. Sau đó, tìm và hiển thị số nhỏ nhất lên màn hình. Đề 2: Tự luận: Viết chương trình nhập dãy số n từ bàn phím. Sau đó, tìm và hiển thị số lớn nhất lên màn hình.
Đề 1:
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.
Đề 2:
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.
Viết chương trình nhập 4 số từ bàn phím và in kết quả ra màn hình tổng của 4 số đó.
#include <bits/stdc++.h>
using namespace std;
double a,b,c,d;
int main()
{
cin>>a>>b>>c>>d;
cout<<a+b+c+d;
return 0;
}
Var a,b,c,d,s:real;
Begin
Write('nhap so thu nhat ');readln(a);
Write('nhap so thu hai ');readln(b);
Write('nhap so thu ba ');readln(c);
Write('nhap so thu tu ');readln(d);
s:=a+b+c+d;
Write('tong la ',s:10:2);
Readln;
End.
Viết chương trình (sử dụng chương trình con) hãy nhập một dãy số nguyên dương từ bàn phím sau đó tính và hiển thị lên màn hình tổng của các số chẵn
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.
Viết chương trình nhập vào từ 1 bàn phím 1 dãy n số nguyên( n nhập từ bàn phím). Sau đó hiển thị ra màn hình các số chẵn của dãy số vừa nhập.
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.
uses crt;
var a:array[1..1000000] of longint;
n,i:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Cac so chan: ');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
readln;
end.
c1 Viết chương trình in ra màn hình trung bình cộng của 3 số dương a,b,c(a,b,c được nhập từ bàn phím)
c2 Viết chương trình tính chu vi và diện tích hình chữ nhật có chiều dài 2 cạnh a và b(được nhập từ bàn phím in ra kết quả màn hình)
Hộ mình với ạ đang cần gấp
Câu 1:
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
int main()
{
cin>>a>>b>>c;
cout<<fixed<<setprecision(2)<<(a+b+c)/3;
return 0;
}
Cho số thực R là bán kính của hình tròn nhập vào từ bàn phím Pi là một bằng số có giá trị 3,14.em hãy viết chương trình tính chu vi diện tích của hình tròn rồi hiển thị kết quả ra màn hình?
Program HOC24;
var r,s: real;
begin
write('Nhap ban kinh: '); readln(r);
writeln('Dien tich la: ',r*r*3.14:6:2);
write('Chu vi la: ',r*2*3.14:6:2);
readln
end.
Cho A B là hai số nguyên được nhập từ bàn phím Em hãy viết phương trình tính tổng của hai số này rồi hiển thị kết quả ra màn hình
viết chương trình nhập vao từ bàn phím số nguyên dương M,N(N<=100) và dãy số A1,A2,... Đếm xem có bn phần tử trong mảng= số M và hiển thị kết quả trên màn hình
uses crt;
var a:array[1..100]of integer;
m,n,dem,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap m='); readln(m);
dem:=0;
for i:=1 to n do
if a[i]=m then inc(dem);
writeln('So phan tu bang ',m,' la: ',dem);
readln;
end.
Hãy viết chương trình nhập vào bàn phím 1 sâu S hãy xóa hết các chữ số có trg sâu S vưaf nhập hiển thị kết quả ra màn hình
uses crt;
var s:string;
d,i:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
for i:=1 to d do
if not(s[i] in ['0'..'9']) then write(s[i]);
readln;
end.
Viết chương trình nhập từ bàn phím số nguyên dương A và số nguyên X.Kiểm tra xem X có là ước chẵn của A hay không?Kết quả hiển thị ra màn hình.Giúp Mik vs môn tin học