K
Khách

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.

14 tháng 12 2016

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!hihi

14 tháng 12 2016

T2 ,T3 ghi trong bài kt là thứ 2,thứ 3 phải k bạn

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.

3 tháng 5 2023

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.

3 tháng 5 2023

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.

27 tháng 12 2020

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.

23 tháng 4 2022

Tham Khảo!

23 tháng 4 2022

HÌnh như có in ra màn hình các số vừa nhập nữa đúng không?bucminh

22 tháng 2 2022

Khóc huhu :((

 

#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;

}

11 tháng 10 2021

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;

}