Những câu hỏi liên quan
H24
Xem chi tiết
NT
30 tháng 12 2021 lúc 15:36

#include <bits/stdc++.h>

using namespace std;

long long m,n,i;

int main()

{

cin>>m>>n;

for (i=m; i<=n; i++)

if (i%2==1) cout<<i<<" ";

return 0;

}

Bình luận (0)
AN
Xem chi tiết
PG
18 tháng 3 2023 lúc 19:37

N = int(input("Nhập số lượng phần tử của dãy N (>50): "))

while N <= 50:

         N = int(input("Nhập lại số lượng phần tử của dãy N (>50): "))

# Nhập vào dãy số 

danh_sach = []

for i in range(N):

         danh_sach.append(int(input("Nhập số thứ %d: " % (i+1))))

# In ra dãy số vừa nhập

print("Dãy số vừa nhập:")

for i in danh_sach:

         print(i, end=' ')

# Nhập vào số nguyên x

x = int(input("nNhập vào số nguyên x: "))

# In ra các số chia hết cho x 

print("Các số chia hết cho x là:")

for i in danh_sach:

         if i % x == 0:

                  print(i, end=' ')

Bình luận (0)
HN
Xem chi tiết
DN
17 tháng 11 2017 lúc 20:51

Program tinhtong;

uses crt;

var a,b: real;

begin

clrscr;

write('nhap so a ='); readln(a);

write('nhap so b ='); readln(b);

writeln('tong cua hai so a va b = ',a+b :4:2);

readln;

end.

Bình luận (0)
H24
Xem chi tiết
NT
5 tháng 5 2021 lúc 20:10

Sửa đề: Nhập 1 số n bất kỳ 

uses crt;

var st:string;

i,d,x,t,y,n:integer;

begin

clrscr;

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

str(n,st);

d:=length(st);

t:=0;

for i:=1 to d do 

  begin

val(st[i],x,y);

t:=t+x;

end;

writeln(t);

readln;

end.

Bình luận (0)
H24
Xem chi tiết
NT
7 tháng 1 2022 lúc 10:17

Chọn D

Bình luận (0)
H24
8 tháng 1 2022 lúc 0:21

Khai báo biến a và b thuộc kiểu Integer

Bình luận (0)
DD
Xem chi tiết
ML
23 tháng 4 2019 lúc 22:04

Lời giải:

Bài 1 :

program hotrotinhoc ;

var i,x : integer ;

begin

write('x='); readln(x);

if x mod 2=0 then writeln('Day la so chan') else writeln('Day la so le');

while x<>0 do

begin

write('x='); readln(x);

if x mod 2=0 then writeln('Day la so chan') else writeln('Day la so le');

end;

readln

end.

Bình luận (0)
ML
23 tháng 4 2019 lúc 22:04

Bài 2 bạn kiểm tra lại đề nhé N ở đâu bạn ???

Bình luận (5)
CA
Xem chi tiết
H24
10 tháng 5 2019 lúc 21:43

var s1,s2: string; i,k:byte;
begin
write('nhap s1:');
readln(s1);
write('nhap s2:');
readln(s2);
write('nhap vt can chen:');
readln(k);
insert(s1,s2,k);
writeln('xau sau khi chen la :',s2);
readln;
end.

Bình luận (0)
TN
Xem chi tiết
TN
3 tháng 1 2018 lúc 21:41

chẳng hạn cho 1 số bất kì bằng n nha thì sẽ làm được

var n:integer;
begin
write ( 'nhap gia tri cua n: ' );
readln (n);
if n mod 2 = 0 then write ( 'n la so chan' )
else write ( 'n la so le' );
end.

Bình luận (0)
KN
4 tháng 1 2018 lúc 10:21

var n: integer;

begin

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

if n mod 2=0 then writeln(n,' la so chan.')

else writeln(n,' la so le.');

readln;

end.

Bình luận (0)
CA
Xem chi tiết
H24
10 tháng 5 2019 lúc 21:44

var s1,s2: string; i,k:byte;
begin
write('nhap s1:');
readln(s1);
write('nhap s2:');
readln(s2);
write('nhap vt can chen:');
readln(k);
insert(s1,s2,k);
writeln('xau sau khi chen la:',s2);
readln;
end.

Bình luận (1)
YT
Xem chi tiết
NP
12 tháng 5 2021 lúc 14:48
program tinh_tong;

uses crt;

var i,n:integer;

t:longint;

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

begin

clrscr;

write('nhap n:');readln(n);

t:=0;

for i:=1 to n do

begin

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

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

end;

write(t);

readln;

end.

  
Bình luận (0)