K
Khách

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.

4 tháng 6 2020

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.

4 tháng 6 2020

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:array[1..100]of integer;

n,i,kt,j: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 nguyen duong la: ');

for i:=1 to n do

if a[i]>0 then write(a[i]:4);

writeln;

writeln('Cac so nguyen to la: ');

for i:=1 to n do

if a[i]>1 then

begin

kt:=0;

for j:=2 to a[i]-1 do

if a[i] mod j=0 then kt:=1;

if kt=0 then write(a[i]:4);

end;

readln;

end.

4 tháng 6 2020

Program HOC24;

var i,n: integer;

begin

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

for i:=1 to n do

if n mod i=0 then write(i,' ');

readln

end.

4 tháng 6 2020

giup mik vs mik dg can gap

21 tháng 4 2019

Lời giải :

program hotrotinhoc ;

var a: array[1..32000] of integer ;

i,n,max : integer ;

begin

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

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to n do

begin

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

end;

max:=a[1];

for i:= 1 to n do if max<a[i] then max:=a[i];

write('So lon nhat la:',max');

readln

end.

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

  if i mod 3=0 then t:=t+i;

writeln(t);

readln;

end.

4 tháng 6 2020

program so_tu_nhien_chan;

uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
write('Cac so chan nho hon hoac bang ',n,' la: ');
for i:=2 to n do
if i mod 2=0 then write(i:4,' ;');
readln;
end.

4 tháng 6 2020

giup mik vs mik dg can gap.

16 tháng 3 2022

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ả:

bai18 01 PNG

#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;

}

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.