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.

13 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

string n;

int d;

int main()

{

cin>>n;

d=n.length();

cout<<d;

return 0;

}

uses crt;

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

i,n,t1,t2,t3:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t1:=0;

t2:=0;

t3:=0;

for i:=1 to n do 

begin

if a[i] mod 2=0 then t1:=t1+a[i]

else t2:=t2+a[i];

if (a[i] mod 2=0) and (a[i] mod 3=0) then t3:=t3+a[i];

end;

writeln(t1);

writeln(t2);

writeln(t3);

readln;

end.

14 tháng 4 2022

Khi bn nhắn mik bt lm r

hihi

16 tháng 5 2023

Var n,sc,sl,i:longint;

Begin

Write('N = ');readln(n);

Write('Cac so tu 1 den ',n,' la ');

For i:=1 to n do

Write(i:8);

Writeln;

For i:=1 to n do

Begin

If i mod 2 = 0 then sc:=sc+i

Else sl:=sl+i;

End;

Writeln('Tong cac so chan la ',sc);

Write('Tong cac so le la ',sl);

Readln

End.

20 tháng 9 2020

1.

var n: integer;

begin

repeat

write('Nhap so n: '); readln(n);

until (n>=10) and (99>=n);

writeln('Chu so hang chuc la: ', n div 10);

writeln('Chu so hang don vi la: ', n mod 10);

end.

2.

var n,i: integer;

s: string;

begin

repeat

write('Nhap so n: '); readln(n);

until (n>=100) and (999>=n);

write('So moi la: ');

str(n,s);

for i:=length(s) downto 1 do write(s[i]);

end.

31 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long i,a,b;

int main()

{

cin>>a>>b;

for (i=1; i<=min(a,b); i++)

if ((a%i==0) and (b%i==0)) cout<<i<<" ";

return 0;

}

 Đề thi gồm 02 bài thi: Bài 1: Viết chương trình theo yêu cầu: Nhập lần lượt dãy số gồm N số nguyên dương từ bàn phím.(N>0) Chương trình thông báo kết quả ra màn hình gồm: chuỗi ban đầu, chuỗi số được sắp xếp theo chiều tăng dần của dãy số. Ví du: Mời bạn nhập vào số N: 6 So thu 1:  So thu 2: 84  So thu 3: 75 So thu 4: 6 So thu 5: 69 So thu 6: 33 Chuoi ban dau la: 3, 84, 75, 6 ,69, 33 Chuoi so sau khi sap xep tang dan la: 3,...
Đọc tiếp

 

Đề thi gồm 02 bài thi: 

Bài 1

Viết chương trình theo yêu cầu: 

Nhập lần lượt dãy số gồm N số nguyên dương từ bàn phím.(N>0) 

Chương trình thông báo kết quả ra màn hình gồm: chuỗi ban đầu, chuỗi số được sắp xếp theo chiều tăng dần của dãy số. 

Ví du: 

Mời bạn nhập vào số N: 6 

So thu 1:  

So thu 2: 84  

So thu 3: 75 

So thu 4: 6 

So thu 5: 69 

So thu 6: 33 

Chuoi ban dau la: 3, 84, 75, 6 ,69, 33 

Chuoi so sau khi sap xep tang dan la: 3, 6, 33, 69, 75, 84  

Bài 2:

Viết chương trình theo yêu cầu: 

Chi phí tiêu dùng của một gia đình chủ yếu gồm 4 loại sau: tiền điện, tiền nước, tiền ga và tiền điện thoại  (Lưu ý: số tiền sử dụng là số nguyên dương ) 

Nhập số tiền 4 loại chi phí (tiền điện, tiền nước, tiền ga và tiền điện thoại) từ bàn phím 

In ra màn hình tổng chi phí chi tiêu trong tháng?    

Help me pléae

 

1

1:

#include <bits/stdc++.h>

using namespace std;

long long a[100],i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

cout<<"Day ban dau la: "<<endl;

for (i=1;i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

sort(a+1,a+n+1);

cout<<"Day tang dan la: "<<endl;

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

1 tháng 7 2019

Ý tưởng :

- Nếu phần tử trong mảng là chẵn thì in phần tử đó ra (Các phần tử sẽ in ra vị trí đầu tiên);

- Nếu phần tử trong mảng là lẻ thì in (Các phần tử lẻ này sẽ in ra ở vị trí tiếp theo của các phần tử chẵn).

Nếu chưa hiểu về ý tưởng , ngày mai mình sẽ gửi lời giải cụ thể cho bạn .

2 tháng 7 2019

Lời giải:

program hotrotinhoc;

var N,i: integer;

a: array[1..32000] of integer;

begin

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

if a[i] mod 2 =0 then write(a[i],' ');

for i:=1 to n do

if a[i] mod 2 =1 then write(a[i],' ');

readln

end.

#include <bits/stdc++.h>
using namespace std;
long long a,b,bcnn;
int main()
{
    cin>>a>>b;
    if (a>b) swap(a,b);
    bcnn=b;
    while (bcnn%a!=0)
        bcnn=bcnn+b;
    cout<<bcnn;
    return 0;
}

 

5 tháng 5 2019

Lời giải :

progam hotrotinhoc;

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

i,n,dem1,dem2 : integer ;

begin

write('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;

dem1:=0; dem2:=0;

for i:= 1 to n do

begin

if a[i]>0 then dem1:=dem1+1;

if a[i]>0 then dem1:=dem2+1;

end;

write('Cac so nguyen am trong day la:',dem1);

writeln;

write('Cac so nguyen am trong day la:',dem2);

readln

end.

1 tháng 5 2019

if a[i]<0 then dem1:=dem2+1;