Những câu hỏi liên quan
Câu 1: Viết chương trình nhập 10 số nguyên N và tính tổng các số đóCâu 2: Viết chương trình nhập 10 số nguyên N và in ra màn hình số lượng các số chẳn đã nhập đượcCâu 3: Viết chương trình nhập 2 số M, N (M nhỏ hơn N) in ra màn hình các số lẻ có trong khoảng từ M đến NCác bạn ai đó giúp mình làm những bài này nhé. Cảm ơn!
Đọc tiếp
Câu 1: Viết chương trình nhập 10 số nguyên N và tính tổng các số đó
Câu 2: Viết chương trình nhập 10 số nguyên N và in ra màn hình số lượng các số chẳn đã nhập được
Câu 3: Viết chương trình nhập 2 số M, N (M nhỏ hơn N) in ra màn hình các số lẻ có trong khoảng từ M đến N
Các bạn ai đó giúp mình làm những bài này nhé. Cảm ơn!
1:
uses crt;
var t,x,i,n:integer;
begin
clrscr;
t:=0;
n:=10;
for i:=1 to n do
begin
readln(x);
t:=t+x;
end;
write(t);
readln;
end.
2:
uses crt;
var dem,x,i,n:integer;
begin
clrscr;
dem:=0;
n:=10;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
write(dem);
readln;
end.
Đúng 3
Bình luận (1)
3
program Cacsole;
uses crt;
var M, N, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
for i := M to N do
if i mod 2 = 1 then
write (i,' ');
readln;
end.
Đúng 1
Bình luận (1)
viết chương trình a,nhập 1 mảng 1 chiều gồm n phần tử là số nguyên
b,in ra màn hìnhmangr vừa nhập
c, in ra màn hình các số chắn trong mảng
d,in ra màn hình các số chính phương trong mảng
Program HOC24;
var a: array[1..32000] of integer;
i,n: integer;
begin
write('Nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('Mang vua nhap: ');
for i:=1 to n do write(a[i],' ');
writeln;
write('Cac so chan trong mang la: ');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
writeln;
write('Cac so chinh phuong trong mang la: ');
for i:=1 to n do if if sqr(trunc(sqrt(a[i])))=a[i] then write(a[i],' ');
readln
end.
Đúng 2
Bình luận (0)
Viết chương trình nhập vào dãy số nguyên 1. In ra màn hình các số chính phương 2. Kiểm tra xem có bao nhiêu số chính phương chẳn
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chinh phuong la: ');
for i:=1 to n do
if sqrt(a[i])=trunc(sqrt(a[i])) then write(a[i]:4);
writeln;
writeln('Cac so chinh phuong chan la: ');
for i:=1 to n do
if ((sqrt(a[i])=trunc(sqrt(a[i]))) and (a[i] mod 2=0) then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
for i:=1 to n do
if sqr(a[i])=sqr(trunc(sqrt(a[i]))) then
begin
write(a[i],' ');
if a[i] mod 2 =0 then write(a[i]);
writeln;
end;
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 1 số nguyên N in ra màn hình các số hoàn chỉnh nhỏ hơn hoặc bằng N.
Helpppppp meeeeeeee!!!!
{program bt_1;
uses crt;
Var:S ,n, i, j:longint;
Begin
clrsr;
Write('Nhap n');Readln(n);
For i:=1 to n do
Begin
S:=0;
For j:=0 to i do
if i mod j:=0 then S:=S+j;
if S=2*i then Write (i:5);
end;
readln;
end.
}
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 1 số nguyên N tính và in ra màn hình tổng các số chẵn nhỏ hơn N.
Help meeeeeeeee!!!!
Tham khảo:
program Tinh;
uses crt;
var i,n: integer; s,t: longint; ch: char;
a : array [1..100] of longint;
begin
repeat
clrscr; readln(n); s:=0; t:=0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
if odd(a[i])=True then s:=s+a[i] else t:=t+a[i];
end;
writeln('Tong cac so chan : ',t);
writeln('Tong cac so le : ',s);
writeln('Tiep tuc ! (C/K) ');
ch:=readkey;
until upcase(ch)='K'
end.
Đúng 0
Bình luận (0)
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
Mk đang cần gấp ạ , đề là :
viết chương trình in ra màn hình tổng các số tự nhiên nhỏ hơn 2020
uses crt;
var i,t:longint;
begin
clrscr;
t:=0;
for i:=1 to 2019 do
t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào số nguyên n in ra màn hình các số nguyên tố nhỏ hơn và tổng các số nguyên tố đó (pascal)
uses crt;
var n,i,dem,j,t:integer;
kt:boolean;
begin
clrscr;
readln(n);
t:=0;
for i:=2 to n do
begin
kt:=true;
for j:=2 to i-1 do
if i mod j=0 then kt:=false;
if kt=true then
begin
write(i:4);
t:=t+i;
end;
end;
writeln;
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình nhấp số tự nhiên N từ bàn phím và in ra màn hình các số lẻ nhỏ hơn hoặc bằng N
#include <bits/stdc++.h>
using namespace std;
int i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
if (i%2==1) cout<<i<<" ";
return 0;
}
Đúng 0
Bình luận (0)
. Viết chương trình tính tổng bình phương của n từ 1 đến 30. In kết quả ra màn hình.
Viết chương trình nhập vào một số nguyên rồi in ra màn hình tất cả các ước số của số đó.
2:
#include <bits/stdc++.h>
using namespace std;
long long n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
if (n%i==0) cout<<i<<" ";
return 0;
}
Đúng 0
Bình luận (0)