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.
uses crt;
var n,i:integer;
kt:boolean;
begin
clrscr;
repeat
readln(n);
until n<=100;
if (n<2) then writeln('khong la so nguyen to')
else begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=false;
if kt=true then write('la so nguyen to')
else write('khong la so nguyen to');
end;
readln;
end.
uses crt;
var n,i:integer;
kt:boolean;
begin
clrscr;
repeat
readln(n);
until n<=100;
if (n<2) then writeln('khong la so nguyen to')
else begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=false;
if kt=true then write('la so nguyen to')
else write('khong la so nguyen to');
end;
readln;
end.
Câu 2:
Program HOC24;
var a: array[1..20] of integer;
t,i: integer;
begin
for i:=1 to 20 do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
end;
t:=0;
for i:=1 to 20 do
if a[i] mod 2<>0 then t:=t+a[i];
writeln('Tong cac so le la :',t);
readln
end.
Câu 1:
Program HOC24;
var a: array[1..10] of integer;
min,max,i: integer;
begin
for i:=1 to 10 do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
end;
min:=32000; max:=0;
for i:=1 to 10 do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la :',max);
write('So nho nhat la : ',min);
readln
end.
uses crt;
var a,b:longint;
begin
clrscr;
write('nhap so thu nhat:');readln(a);
write('nhap so thu hai:');readln(b);
if (a mod 2=0) and (b mod 2=0) then
write('ca hai so deu chan')
else if (a mod 2<>0) and (b mod 2<>0) then
write('ca hai so deu le')
else write('ban vua nhap mot so chan va mot so le');
readln;
end.
chúc bạn học tốt
A:
uses crt;
var t,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
B:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap m='); readln(m);
for i:=1 to m do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to m do
t:=t+a[i];
writeln(t);
readln;
end.
TK:
Ví dụ: Với 10 thì tổng các số tự nhiên sẽ là.
Để hiểu được bài này, các bạn cần có kiến thư căn bản trong Java:
Nhập xuất trong Java.Vòng lặp trong Java.Tính tổng các số tự nhiên bằng vòng lặp for JavaĐầu tiên ta cần xác định được số cần tính tổng các số tự nhiên bằng cách sử dụng class Scanner. Người dùng sẽ nhập vào một số, khi đó ta thực hiện tính tổng từ 1 đến số đó.
Bài viết này được đăng tại [free tuts .net]
Khai báo một đối tượng sc thuộc class Scanner, sau đó sử dụng nó để lấy dữ liệu từ bàn phím.
Scanner sc = new Scanner(System.in); System.out.println("Nhập vào một số: "); num = sc.nextInt();
Bây giờ sử dụng một vòng lặp for lặp từ 1 đến số num vừa nhập, khi đó tổng sum = sum + i.
for(int i = 1; i <= num; ++i) { // sum = sum + i; sum += i; }
Để kiểm tra kết quả ta chỉ cần hiển thị sum.
Full code:
import java.util.Scanner; public class Main { public static void main(String[] args) { int num, sum = 0; Scanner sc = new Scanner(System.in); System.out.println("Nhập vào một số: "); num = sc.nextInt(); for(int i = 1; i <= num; ++i) { // sum = sum + i; sum += i; } System.out.println("Tổng các số tự nhiên từ 1 đến "+ num +" là: "+sum); System.out.println("------------------------------------"); System.out.println("Chương trình này được đăng tại Freetuts.net"); } }
Kết quả:
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t,h,s;
int main()
{
cin>>n;
t=0; h=0; s=1;
for (i=1; i<=n; i++)
{
cin>>x;
t+=x;
h-=x;
s*=x;
}
cout<<t<<endl;
cout<<h<<endl;
cout<<s<<endl;
return 0;
}
uses crt;
var a,b,t:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if (a>5) and (b>5) then
begin
t:=a+b;
writeln('tong la: ',t);
end
else writeln('khong duoc tinh');
readln;
end.
uses crt;
Var x,y,z: Integer;
begin
Write ('Nhap x: '); readln (x);
Write ('Nhap y: '); readln (y);
z:=x + y;
If (x > 5) and (y > 5) then write ('Tong hai so ',x,' va ',y,' la: ',z);
If (x <= 5) or (y <= 5) then write ('Vui long nhap hai so deu lon hon 5');
readln;
end.