Viết chương trình in ra màn hình " Thời khóa biểu" thứ 2 và thứ 3 của em
(Helppppppp Meeeeeeeeeeee pls)
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.
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;
writeln(a[3]);
readln;
end.
1)
Var array:[1..1000] of integer;
i,n,t:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
If a[i] > a[i+1] then
Begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
End;
Write('Sap xep tang dan ');
For i:=1 to n do write(a[i]:8);
Readln
End.
2)
Var array:[1..1000] of integer;
i,n,t:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
If a[i] < a[i+1] then
Begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
End;
Write('Sap xep giam dan ');
For i:=1 to n do write(a[i]:8);
Readln
End.
Viết chương trình nhập vào một số tự nhiên từ 2 đến 8 và in ra màn hình thứ tương ứng với số đã nhập
uses crt;
var thu:integer;
begin
clrscr;
repeat
write('Nhap thu:'); readln(thu);
until (2<=thu) and (thu<=8);
case thu of
2: writeln('Monday');
3: writeln('Tuesday');
4: writeln('Wednesday');
5: writeln('Thursday');
6: writeln('Friday');
7: writeln('Saturday');
8: writeln('Sunday');
end;
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long i,n,a[1000],dem,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
t=0;
for (i=1; i<=n; i++)
if (a[i]%15==0)
{
cout<<a[i]<<" ";
t+=a[i];
}
cout<<endl;
cout<<"Tong cac so chia het cho 3 va 5 la: "<<t;
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
int main()
{
string st;
int a;
cin>>st;
cin>>a;
cout<<"Xin chao "<<st<<endl;
cout<<"Nam nay "<<st<<" "<<2021-a<<" tuoi";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<min(a,b)<<" "<<max(a,b)<<endl;
cout<<max(a,b)<<" "<<min(a,b)<<endl;
return 0;
}
program TKB;
uses crt;
var T2, T3:string;
begin
clrscr;
write('Thu 2 co mon: '); readln(T2);
write('Thu 3 co mon: '); readln(T3);
readln;
end.
Mình ko chắc là đúng đâu nha! Bạn lên google tìm thử đi!
T2 ,T3 ghi trong bài kt là thứ 2,thứ 3 phải k bạn