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
Những câu hỏi liên quan
Viết chương trình nhập từ bàn phím các phần tử của 1 dãy số.Độ dài N nhập từ bàn phím.Tính tổng các phần tử số chẵn vừa nhập và in ra màn hình. Giúp mik vs ạ mai mik thi r😭
program TongSoChanTrongDay;
var
n, i, tong: integer;
a: array[1..100] of integer;
begin
tong := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
tong := tong + a[i];
end;
writeln('Tong cac phan tu chan trong day la: ', tong);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào 1 số nguyên a số thức b từ bàn phím tính tổng 2 số đóGiúp em với ạ mai em thi rùi :((
Đọc tiếp
Viết chương trình nhập vào 1 số nguyên a số thức b từ bàn phím tính tổng 2 số đó
Giúp em với ạ mai em thi rùi :((
Mng giúp mình các BT cuối kì vs ạ
Bài 1: Viết chương trình nhập từ bàn phím 2 số nguyên a,b; Sau đó ghi chúng vào tệp có tên D:Baitaptin.txt.
Bài 2: Viết chương trình nhập từ bàn phím 1 xâu không quá 180 kí tự; Xuất xâu vừa nhập ra màn hình rồi ghi xâu đó vào tệp có tên E:tepxau.txt.
Bài 3: Viết chương trình nhập từ bàn phím 2 số nguyên dương; Tính và ghi tổng của chúng vào tệp có tên ‘teptong.txt’ rồi xuất tổng ra màn hình.
Đọc tiếp
Mng giúp mình các BT cuối kì vs ạ Bài 1: Viết chương trình nhập từ bàn phím 2 số nguyên a,b; Sau đó ghi chúng vào tệp có tên D:\Baitaptin.txt. Bài 2: Viết chương trình nhập từ bàn phím 1 xâu không quá 180 kí tự; Xuất xâu vừa nhập ra màn hình rồi ghi xâu đó vào tệp có tên E:\tepxau.txt. Bài 3: Viết chương trình nhập từ bàn phím 2 số nguyên dương; Tính và ghi tổng của chúng vào tệp có tên ‘teptong.txt’ rồi xuất tổng ra màn hình.
Bài 3:
uses crt;
const fi='teptong.txt'
var a,b:integer;
f1:text;
begin
clrscr;
assign(f1,fi); rewrite(f1);
readln(a,b);
writeln(a+b);
writeln(f1,a+b);
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
1. Viết chương trình tính tổng 2 số nguyên a, b.
2. Viết chương trình tính diện tích hình tròn với bán kính r nhập từ
bàn phím.
3. Viết chương trình nhập vào 1 ký tự. In ra màn hình vị trí ký tự đó
trong bảng mã ASCII
1:
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a+b;
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
double s,r;
int main()
{
cin>>r;
s=r*r*pi;
cout<<fixed<<setprecision(2)<<s;
return 0;
}
Đúng 0
Bình luận (0)
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;
}
Đúng 0
Bình luận (0)
viết chương trình nhập vào số tự nhiên N từ bàn phím và in ra màn hình tổng các ước của N
program TongUoc;
uses crt;
var
N, i, Tong: integer;
begin
clrscr;
Tong := 0;
write('Nhap so tu nhien N: ');
readln(N);
// Tinh tong cac uoc cua N
for i := 1 to N do
begin
if N mod i = 0 then
begin
Tong := Tong + i;
end;
end;
writeln('Tong cac uoc cua ', N, ' la: ', Tong);
readln;
end.
Đúng 0
Bình luận (0)
a) viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất.
b) viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất.
program hello;
uses crt;
Var n,i,j,k: integer;
a: array[1..50] of integer;
begin;
a[1]:=k;
Readln(n);
For i:=1 to n do
Begin;
Writeln('nhap a[',i,'] '); Readln(a[i]);
End;
For i:=1 to n-1 do
For j:=i+1 to n do
If a[i]<a[j] then k:=a[j];
Writeln('gia tri lon nhat la', k);
end.
giúp em với sáng mai em thi rồi..1.viết chương trình nhập vào một xâu kí tự từ bàn phím. in ra màn hình xâu kí tự sau khi đã thay các từ nang thành mua.2. viết chương trình vào một xâu kí tự từ bàn phím .kiểm tra xem xâu đó có phải là xâu palindrom không? ( Xâu palindrom là xâu khi viết từ trái qua phải cũng giống như từ phải qua trái, VD: Xâu ABBA là một xâu palindrom).giúp em với ạ em rất cần gấp
Đọc tiếp
giúp em với sáng mai em thi rồi..
1.viết chương trình nhập vào một xâu kí tự từ bàn phím. in ra màn hình xâu kí tự sau khi đã thay các từ "nang" thành "mua".
2. viết chương trình vào một xâu kí tự từ bàn phím .kiểm tra xem xâu đó có phải là xâu palindrom không? ( Xâu palindrom là xâu khi viết từ trái qua phải cũng giống như từ phải qua trái, VD: Xâu 'ABBA' là một xâu palindrom).
giúp em với ạ em rất cần gấp
Bài 1:
uses crt;
var S:String;
vt:integer;
begin
clrscr;
Write(‘Nhap 1 xau:’); Readln(S);
While pos(‘nang’,s)>0 do
Begin
Vt:= pos(‘nang’,s);
Delete(s,vt,4);
Insert(‘mua’,s ,vt);
End;
Writeln(‘Xau sau khi thay the ’,s);
Readln;
End.
Đúng 2
Bình luận (0)
Bài 2:
uses crt;
var st:string;
d,i,kt:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
kt:=0;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then writeln(st,' la xau doi xung')
else writeln(st,' khong la xau doi xung');
readln;
end.
Đúng 2
Bình luận (0)
câu 1
Viết - chạy - sửa lỗi ( nếu có ) chương trình in ra trên màn hình dòng chữ " lớp 8A chào bạn ! "
câu 2
Viết chương trình ghi và in ra màn hình kết quả tổng 2 số tự nhận a, b nhập vào từ bàn phím
câu 3
Viết chương trình tính s và chu vi hình chữ nhật biết 2 cạnh nhập từ bàn phím . Lưu tệp với tên HCN . Pas
Câu 3:
program cauba;
int chieudai, chieurong, chuvi, dientich :real;
begin
write('Chieu dai la: '); Readln(chieudai);
write('Chieu rong la: '); Readln(chieurong);
chuvi = (chieudai + chieu rong)*2;
dientich= chieudai*chieurong;
writeln('Chu vi la: ',chuvi);
writeln('Dien tich la: ',dientich);
end.
Đúng 0
Bình luận (0)
Caua1:
program caumot;
begin
writeln('lop 8A chao ban!');
end.
Câu 2:
program cauhai;
int a,b,c :real;
begin
write('a='); readln(a);
write('b='); readln(b);
c= a+b;
write('Tong hai so a b la:',c);
end.
Đúng 0
Bình luận (0)