viet chuong trinh nhap 1 day so sau do in ra man hinh cac so chinh phuong
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
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)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
#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;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
#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;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
Uses crt;
Var i,n,x:integer;
s:array[1..10000] of integer;
Begin
clrscr;
Write('Nhap do dai cua day: ');readln(n);
for i:= 1 to n do
begin
write('So thu ',i,' = ');
readln(s[i]);
End;
Writeln('Cac so chinh phuong co trong day:');
for i:= 1 to n do
Begin
x:=trunc(sqrt(s[i]));
if sqr(x) = s[i] then write(s[i],' ');
end;
Readln;
End.