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.

22 tháng 10 2017

program hoan_doi;

var x,y,z : integer;

begin

read(x,y);

writeln(x,'',y) ;

z := x;

x:=y ;

y:= z ;

writeln (x,'',y) ;

readln

end.

Mình ko chắc

6 tháng 5 2018

Mình nghĩ câu này đã có trong sách rồi.

19 tháng 6 2023

#include<iostream>

using namespace std;

int main()    {

          int n, tram, chuc, donvi;

          cout<<"Nhap vao mot so co 3 chu so: ";

          cin>>n;

          tram = n / 100;

          chuc = (n%100) / 10;

          donvi = (n%100) % 10;

          cout<<"Chu so hang tram cua so "<<n<<" la: "<<tram<<endl;

          cout<<"Chu so hang chuc cua so "<<n<<" la: "<<chuc<<endl;

          cout<<"Chu so hang don vi cua so "<<n<<" la: "<<donvi<<endl;

          return 0;

}

#include <bits/stdc++.h>
using namespace std;
#define ll long long
ll a;
int main()
{
    ios_base::sync_with_stdio(0);
    cin.tie(0);
    cout.tie(0);
    cin>>a;
    cout<<a/100<<"\n"<<(a/10)%10<<"\n"<<a%10;
}

out tu đúng

#include <bits/stdc++.h>

using namespace std;

int a;

int main()

{

cin>>a;

cout<<a%10<<" "<<a/10;

}

17 tháng 6 2023

#include <iostream>

using namespace std;

int main()   {

      int num;

      cout << "Nhap vao mot so nguyen co 2 chu so: ";

      cin >> num;

      int hang_chuc = num / 10;

      int hang_don_vi = num % 10;

      cout << "Chu so hang chuc: " << hang_chuc << endl;

      cout << "Chu so hang don vi: " << hang_don_vi << endl;

      return 0;

}

7 tháng 12 2016

VD: 2,4,6

- số hàng trăm là 2

- số hàng chục là 4

-số hàng đơn vị là 6

- Tổng các chữ số:2+4+6=12

GIÚP MK VS MK ĐANG CẦN GẤP!!! vuivuivui

Câu 1: 

uses crt;

var a:array[1..5]of integer;

max,i:integer;

begin

clrscr;

for i:=1 to 5 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to 5 do 

  if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

Câu 2: 

uses crt;

var a:array[1..6]of integer;

min,i:integer;

begin

clrscr;

for i:=1 to 6 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

min:=a[1];

for i:=1 to 6 do 

  if min>a[i] then min:=a[i];

writeln(min);

readln;

end.

28 tháng 4 2023

Bài 23

var a:array[1..1000] of integer;

i,n:integer;

s,tbc:real;

begin

write('n = ');readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

s:=s+a[i];

end;

tbc:=s/n;

writeln('Gia tri trung binh la ',tbc:10:2);

write('Cac so lon hon gia tri trung binh la: ');

for i:=1 to n do

if a[i] > tbc then write(a[i]:8);

readln

end.

28 tháng 4 2023

var a:array[1..1000] of integer;

i,n,max:integer;

begin

write('n = ');readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

end;

max:=a[1];

for i:=2 to n do

if a[i] > max then max:=a[i];

for i:=1 to n do

begin

if max=a[i] then write(max,' o vi tri thu ',i);

break;

readln

end.

11 tháng 10 2021

uses crt;

var x,y:integer;

begin

readln(x,y);

writeln(x,' ',y);

wrieln(y,' ',x);

readln;

end.

 


 

11 tháng 10 2021

cái đề của bạn nó rất là khặp khiển đấy