Nhập 2 số thực m,n bất kỳ
viết chương trình in ra các số lẻ từ m đến n với m<n và m,n là 2 số nguyên bất kỳ nhập từ bàn phím
#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;
}
Viết chương trình thực hiện các công việc sau: a) Nhập vào một dãy gồm N số nguyên ( N > 50) b) Hãy in ra màn hình dãy số vừa nhập c) Nhập vào một số nguyên x bất kỳ. In ra các số chia hết cho x
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=' ')
viết chương trình tính tổng 2 số a,b.Với a,b là 2 số bất kỳ nhập từ bàn phím
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.
Viết Chương Trình nhập 2 số n bất kỳ sau đó in ra tổng các chữ số của n
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.
Chương trình sau thực hiện việc gì? *
A Nhập 2 số bất kỳ từ bàn phím
B Nhập 2 số nguyên từ bàn phím, thông báo ra màn hình tổng - hiệu - tích - thương (nguyên) của chúng
C Nhập 2 số nguyên từ bàn phím, thông báo ra giá trị của chúng ra màn hình
D Nhập 2 số nguyên từ bàn phím, tính tổng - hiệu - tích - thương (nguyên) của chúng
Bài 1 : Viết chương trình thực hiện
+ Nhập số nguyên x bất kỳ tu bàn phím , Hiển thị thông báo đó là số chẵn hay lẻ , Dừng chương trình khi nhập phải số 0
Bài 2: Viết chương trình tính 12+22+32+.....K =M
Dừng chương trình khi M nhỏ hơn N
( N là số tự nhiên )
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ài 2 bạn kiểm tra lại đề nhé N ở đâu bạn ???
lập trình nhập từ bàn phím 1 xâu S1 và S2. Thực hiện chèn một xâu S1 vào S2 vào vị trí bất kỳ nhập từ bàn phím. Đưa xâu sau khi chèn ra màn hình
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.
viết chương trình 1 số bất kỳ nhập từ bàn phím là số chẵn hay lẽ?
Giúp mình với
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.
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.
lập trình nhập từ bàn phím một xâu S1 và S2. Thực hiện chèn xâu S1 vào xâu S2 vào vị trí bất kỳ nhập từ bàn phím. Đưa xâu sau khi chèn ra màn hình
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.
Câu 1 viết chương trình nhập vào 1 dãy n số nguyên bất kỳ .In ra màn hình tổng các số chia hết cho 2
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.