viet chuong trinh nhap 1 day so sau do in ra man hinh cac so chinh phuong
Những câu hỏi liên quan
Viet chuong trinh nhap n so nguyen tu ban phim (do dai day so nhap tu ban phim);
a.In ra cac so nguyen duong
b.In ra man hinh cac so ngto trong day so vua nhap
Mn giup ban mik vs giai giup mik bai nay nha
Cam on aj
uses crt;
var a:array[1..100]of integer;
n,i,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so nguyen duong la: ');
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
writeln;
writeln('Cac so nguyen to la: ');
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
Đúng 0
Bình luận (0)
viet chuong trinh nhap vao so nguyen N. tinh va in ra man hinh tong cac so le trong pham vi N
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Minh co 3 de thi thuc hanh ne . minh hoc ko gioi mon nay lam ban nao bt giup minh voi:1, Viet chuong trinh nhap 2 so la chieu dai va chieu rong cua hinh chu nhat.tinh chu vi va dien tich .sau do in ra man hinh chu vi va dien tich cua hinh chu nhat do2,Viet chuong trinh nhap ban kinh cua duong tron sau do tinh dien tich cua duong tron do. in kq cua dien tich h tron do ra man hinh3, Viet cong thuc nhap lai 2 so a va b . sau do tinh tong,hieu,tich,thuong cua 2 so do . In kq ra man hinh
Đọc tiếp
Minh co 3 de thi thuc hanh ne . minh hoc ko gioi mon nay lam ban nao bt giup minh voi:
1, Viet chuong trinh nhap 2 so la chieu dai va chieu rong cua hinh chu nhat.tinh chu vi va dien tich .sau do in ra man hinh chu vi va dien tich cua hinh chu nhat do
2,Viet chuong trinh nhap ban kinh cua duong tron sau do tinh dien tich cua duong tron do. in kq cua dien tich h tron do ra man hinh
3, Viet cong thuc nhap lai 2 so a va b . sau do tinh tong,hieu,tich,thuong cua 2 so do . In kq ra man hinh
1. Khai báo 2 biến: a và b (trong đó: a là chiều dài, b là chiều rộng)
Cho người dùng nhập giá trị vào 2 biến trên
Công thức chu vi:(a+b)*2
Công thức diện tích: a*b
Điều kiện bổ sung:
+ Nếu a <= 0 hoặc b <=0 hoặc cả a,b <=0 => Báo lỗi (Chiều dài không bao giờ âm)!
+ Nếu a=b => Báo lỗi (Hình chữ nhật thì chiều dài không thể bằng chiều rộng)
Đúng 0
Bình luận (0)
de 3
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.
Đúng 0
Bình luận (0)
de 2
a. Hướng dẫn:
- Nhập hai cạnh vào hai biến a, b.
- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.
b. Mã chương trình:
Program Chu_nhat;
uses crt;
Var a, b, S, CV: real;
Begin
Write('Nhap chieu dai:'); readln(a);
Write('Nhap chieu rong:'); readln(b);
S := a*b;
CV := (a+b)*2;
Writeln('Dien tich hinh chu nhat la:',S);
Writeln('Chu vi hinh chu nhat la:',CV:10:2);
readln
end.
Đúng 0
Bình luận (1)
Xem thêm câu trả lời
viet chuong trinh nhap vao so mguyen n va day so gom n la so nguyen tu ban phim in ra man hinh so lon nhat trong day so nguyen vua nhap
Lời giải :
program hotrotinhoc ;
var a: array[1..32000] of integer ;
i,n,max : integer ;
begin
write('Nhap n='); readln(n);
writeln('Nhap gia tri cua cac phan tu');
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];
write('So lon nhat la:',max');
readln
end.
Đúng 0
Bình luận (0)
viet chuong trinh nhap vao mot day so nguyen dua ra man hinh tong so nguyen am trong day so
#include <bits/stdc++.h>
using namespace std;
long long t,i,n,x;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x<0) t=t+x;
}
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
1) Viet chuong trinh nhap 2 so thuc tu ban phim. Doi gia tri 2 so do va in ket qua ra man hinh
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
cout<<"a truoc khi doi la:"<<fixed<<setprecision(2)<<a<<endl;
cout<<"b truoc khi doi la:"<<fixed<<setprecision(2)<<b<<endl;
swap(a,b);
cout<<"a sau khi doi la:"<<fixed<<setprecision(2)<<a<<endl;
cout<<"b sau khi doi la:"<<fixed<<setprecision(2)<<b;
return 0;
}
Đúng 0
Bình luận (0)
viet chuong trinh nhap 1 so nguyen khac khong tu ban phim,viet ra man hinh cac so tu nhien chan
uses crt;
var n,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
write('Cac so chan trong khoang tu 1 toi ',n,' la: ');
for i:=1 to n do
if i mod 2=0 then write(i:4);
readln;
end.
Đúng 0
Bình luận (0)
program so_tu_nhien_chan;
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
write('Cac so chan nho hon hoac bang ',n,' la: ');
for i:=2 to n do
if i mod 2=0 then write(i:4,' ;');
readln;
end.
Đúng 0
Bình luận (0)
viet chuong trinh nhap so n nguyen duong (n<=100) sau do tinh tong cai so tu 1 den N viet ket qua ra man hinh
var s,i,n:integer;
begin
Write('n = ');
While (n > 100) and (n < 1) then
Begin
write('Nhap sai, nhap lai ');readln(n);
End;
for i:=1 to n do
s:=s+i;
write('tong la: ',s);
readln;
end.
Đúng 1
Bình luận (0)
viet chuong trinh nhap vao tu ban phim so nguyen duong N , tinh tong gia tri chia het cho 3 trong pham vi tu 1 den N , sau do in ra man hinh
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 3=0 then t:=t+i;
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)