viết chương trình in ra màn hình một chữ số "0"
giúp mk vs
PH
Những câu hỏi liên quan
Câu 1: Viết chương trình nhập vào một số nguyên bất kì. Thông báo ra màn hình số đó là số chẵn hay số lẻ.
Câu 2: Viết chương trình in ra màn hình các số liên tiếp từ 1 đến 20 mỗi số trên một dòng
Giúp mk vs ạ!!!
Tham khảo nhen
Program Tin_hoc;
var a: integer;
begin
write('Nhap a: '); readln(a);
if a=0 then write('a la so 0') else
if a mod 2=0 then write(a,' la so chan') else write(a,' la so le');
readln
end.
Đúng 0
Bình luận (0)
Tham khảo
Program Tin_hoc;
var a: integer;
begin
write('Nhap a: '); readln(a);
if a=0 then write('a la so 0') else
if a mod 2=0 then write(a,' la so chan') else write(a,' la so le');
readln
end.
Đúng 0
Bình luận (0)
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long i;
int main()
{
for (i=1; i<=20; i++) cout<<i<<" ";
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập vào mảng a gồm n phần tử thuộc kiểu số nguyên, yêu cầu: - In ra màn hình các phần tử trong mảng - In ra màn hình số lượng các phần tử là số chẵn hoặc số lẻ. Mn ơi lm ơn giúp mk bài này vs ạ!!! Mk sắp thi ròi!!!
bạn tham khảo
uses crt;
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 2
Bình luận (2)
var a:array[1..200] of integer;
i,n,dem1,dem2:integer;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' = ');readln(a[i]);
end;
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if i = n then write(a[i])
else write(a[i],' ');
if a[i] mod 2 = 0 then dem1:=dem1+1
else dem2:=dem2+1;
end;
writeln('So cac phan tu chan la ',dem1);
write('So cac phan tu le la ',dem2);
readln;
end.
Đúng 1
Bình luận (1)
Câu 1: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số từ 1 đến n.
Câu 2: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số chẵn từ 1 đến n.
Câu 3: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số lẻ từ 1 đến n.
c1:
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=1;
for (i=1; i<=n; i++) s=s*i;
cout<<s;
return 0;
}
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=1;
for (i=1; i<=n; i++) if (i%2==0) s=s*i;
cout<<s;
return 0;
}
Đúng 0
Bình luận (0)
1.viết chương trình nhập vào 1 dãy số gồm n phần tử kiểu số nguyên. Đếm và in ra màn hình tổng các số lớn hơn 0 và chia hết cho 5. giúp e vs ạ
program TongSoChiaHetCho5;
var
n, i, x, tong: integer;
begin
write('Nhap so phan tu n: ');
readln(n);
tong := 0;
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(x);
if (x > 0) and (x mod 5 = 0) then
tong := tong + x;
end;
writeln('Tong cac so lon hon 0 va chia het cho 5 la: ', tong);
readln;
end.
Đúng 2
Bình luận (4)
Viết chương trình nhập vào một dãy số, chương trình chỉ dừng lại khi số nhập vào là số 0. In ra màn hình các kết quả sau: - In ra tổng của các số chẵn đã nhập vào? - In ra tích của các số lẻ đã nhập vào?
Giúp tui với mn ơi
uses crt;
var n,t1:integer;
s:real;
begin
clrscr;
t1:=0;
s:=1;
repeat
readln\(\left(n\right)\);
if n mod 2=0 then t1:=t1+n
else s:=s*n;
until n=0;
writeln\(\left(t1\right)\);
writeln\(\left(s:4:2\right)\);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập 1 số có 2 chữ số. In ra màn hình tổng các chữ số trong đó
Giúp đi mn ơiii
Xem chi tiết
uses crt;
var n,dv,ch:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (10<=n) and (n<=99);
dv:=n mod 10;
ch:=n div 10;
writeln('Tong cac chu so la: ',dv+ch);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập một số n bất kỳ và in ra màn hình các chữ số chẵn từ 0 đến n sao cho mỗi số cách nhau 5 vị trí
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=0 to n do
if i mod 2=0 then write(i:5);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập 2 số nguyên x,b in ra màn hình các số lẻ có trong khoảng từ 1-> b x in ra màn hình tổng các số lẻ cs trong khoảng từ 1-> b x giúp mik vs mai mik kiểm tra rrrr
Xem chi tiết
b x = b*x hay là như nào vậy giải thích chỗ này xem
Đúng 0
Bình luận (1)
uses crt;
var x,b,i,t:integer;
begin
clrscr;
write('Nhap x='); readln(x);
write('Nhap b='); readln(b);
writeln('Cac so le la: ');
t:=0;
for i:=1 to b+x do
if i mod 2=1 then
begin
write(i:4);
t:=t+i;
end;
writeln;
writeln('Tong cac so le la: ',t);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập một dãy số phận n phần tử nhỏ hơn 100 in ra màn hình chữ số là bội của 3 (mik đag gấp mông mn giúp đỡ):)))
var a:array [1..100] of integer;
i,n,dem:integer;
begin
write('Nhap so luong so N = ');readln(n);
for i:=1 to n do
begin
write('Nhap vao so thu ',i,': ');readln(a[i]);
if a[i] mod 3 = 0 then dem:=dem+1;
end;
write('Co ',dem,' so la boi cua 3');
readln;
end.
Đúng 1
Bình luận (0)
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
if (a[i]%3==0) cout<<a[i]<<" ";
return 0;
}
Đúng 0
Bình luận (0)
Bài 1 : Viết chương trình Pascal nhập vào 10 số thực bất kì , in ra màn hình tổng bình phương của các số âm Bài 2 : Viết chườn trình nhập vào số n số tự nhiên đầu tiên , tính tổng các số chẵn có trong dãy số in kết quả ra màn hình Bài 3 : Viết chưng trình nhập vào một mảng các số nguyên bất kì , in ra màn hình các số là số dương mà là số lẻ Giúp mk với mn ơi , mk đang cần gấp Cảm ơn mn nhiều
Đọc tiếp
Bài 1 : Viết chương trình Pascal nhập vào 10 số thực bất kì , in ra màn hình tổng bình phương của các số âm
Bài 2 : Viết chườn trình nhập vào số n số tự nhiên đầu tiên , tính tổng các số chẵn có trong dãy số in kết quả ra màn hình
Bài 3 : Viết chưng trình nhập vào một mảng các số nguyên bất kì , in ra màn hình các số là số dương mà là số lẻ
Giúp mk với mn ơi , mk đang cần gấp Cảm ơn mn nhiều
Bài 1:program sothuc;
uses crt;
var a:array[1..10] of real;s,i,j:real;
begin
s:=0;
for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;
for i:=1 to 10 do if a[i]<0 then
for j:=1 to 10 do
begin a[j]:=sqr(a[i]); s:=s+a[j]; end;
writeln('tong binh phuong cac so am la: ',s:2:2); readln;
end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)
Bài 2:
program soduong;
uses crt;
var a:array[1..100] of integer;s,i,n:integer;
begin
clrscr;
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin
writeln('a[',i,']=');readln(a[i]);
if a[i] mod 2 = 0 then s:=s+a[i] end;
writeln('tong so duong trong day la',s:2:0);readln
end.
Bài 3: các số dương mà là số lẻ là sao thế bạn????