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.

27 tháng 4 2021

uses crt;

var s,n,i:integer;

a:array [1..100] of real;

begin

s:=0;

write('nhap so so hang cua day');readln(n);

for i:=1 to n do begin

writeln('so thu',i,'la: '); readln(a[i]); s:=s+a[i]; end;

write('tong day so thuc la:',s); readln;

end.

 

 

uses crt;

var a:array[1..100]of real;

i,n:integer;

s:real;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

s:=0;

for i:=1 to n do 

  s:=s+a[i];

writeln(s:4:2);

readln;

end.

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;

}

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

  if i mod 2=1 then t:=t+i;

writeln(t);

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 12 2016

1. Khai báo 2 biến: a và b (trong đó: a là chiều dài, b là chiều rộng)
Cho người dùng nhập giá trị vào 2 biến trên

Công thức chu vi:(a+b)*2
Công thức diện tích: a*b

Điều kiện bổ sung:
+ Nếu a <= 0 hoặc b <=0 hoặc cả a,b <=0 => Báo lỗi (Chiều dài không bao giờ âm)!
+ Nếu a=b => Báo lỗi (Hình chữ nhật thì chiều dài không thể bằng chiều rộng)

8 tháng 12 2016

de 3

program bt;

uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.

9 tháng 5 2023

var s,i,n:integer;

begin

Write('n = ');

While (n > 100) and (n < 1) then

Begin

write('Nhap sai, nhap lai ');readln(n);

End;

for i:=1 to n do

s:=s+i;

write('tong la: ',s);

readln;

end.

18 tháng 6 2019

Lời giải :

Bài 1:

Ý tưởng:

-Cách 1: Bạn có thể chuyển số n thành xâu sau đó đảo ngược xâu lại

-Cách 2: Đảo trực tiếp chữ số đó

Bài làm :

Cách 1:

program hotrotinhoc;

var n,i: byte;

s,s1: string;

begin

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

str(n,s);

for i:= length(s) downto 1 do

s1:=s1+s[i];

write(s1);

readln

end.

Cách 2:

var n: byte;

begin

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

while n>0 do

begin

write(n mod 10);

n:=n div 10;

end;

readln

end.

18 tháng 6 2019

Bài 2:

program hotrotinhoc;

var n: string;

begin

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

write(n[2],n[4]);

readln

end.

Bài 3: Tính tổng các chữ số đúng không bạn ? Ở ví dụ sao lại Nhập 123 thì xuất ra kết quả là 5 ạ ? Tổng của 3 chữ số phải là 6 chứ ạ

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:4);

writeln;

for i:=1 to n do t:=t+a[i];

writeln(t);

readln;

end.