Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Minh Nguyệt Điêu
Xem chi tiết
Kiều Vũ Linh
8 tháng 2 2023 lúc 9:56

Câu 1:

var i,n:integer;

s:longint;

begin

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

for i:=1 to n do

s:=s+(i*10+2);

write('S = ',s);

readln;

end.

Câu 2:

var i,n:integer;

s:real;

begin

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

for i:=1 to n do s:=s+1/n;

write('tong la ',s:10:2);

readln;

end.

Lê thị anh thư
Xem chi tiết
Huyền
Xem chi tiết
HT.Phong (9A5)
28 tháng 4 2023 lúc 16:21

Uses crt;

var i,t: integer;

begin clrscr;

i:=0;

while(i<=120) do begin

i:=i+1;

t:=t+i;

end;

write(t);

readln;

end.

Lưu Đình Hiếu
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 7 2021 lúc 19:17

Số hạng cuối cùng của dãy số này là số nào vậy bạn?

Đình Phong
Xem chi tiết
Đình Phong
18 tháng 11 2021 lúc 20:25

Mn giúp e vs ạ

Julie
18 tháng 11 2021 lúc 21:04

bên trường mik ko học Tin

 

lê thị bích ngọc
19 tháng 11 2021 lúc 16:44

Chương trình :

#include<iostream>

using namespace std;

int main() {

   int a, b, c;

   cout << "điểm toán : "; cin >> a;

   cout << "điểm lý : "; cin >> b;

   cout << "điểm hóa : "; cin >> c;

   cout << "tổng điểm ba môn là : " << a + b + c;

 return 0;

}

mô tả :

tạo ba biến a, b, c tượng trưng cho ba con điểm toán, lý, hóa có thể nhập từ bàn phím.

in ra màn hình tổng ba biến.

xác đinh đề :

Nhìn đề ta thấy

Tuấn Hưng
Xem chi tiết
Phiêu Phiêu
20 tháng 2 2022 lúc 13:42

Viết thân thôi hen

Var n,i,s:integer;

Read(n);

s:=0;

For i:=1 to n do

 If i mod 2 <>0 then s:=s+i else s:=s-i;

Write(s);

end.

Tuấn Hưng
20 tháng 2 2022 lúc 13:35

mong mn giúp vs ạ
đang gấp

Tuấn Hưng
20 tháng 2 2022 lúc 19:45

Bạn lm hết đc k@Phiêu Phiêu

Phạm Anh Thư
Xem chi tiết
Nguyễn acc 2
9 tháng 3 2022 lúc 9:25

refer:

uses crt;

var s,i,n:integer;

begin

clrscr;

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

s:=0;

for i:=0 to n do

if i mod 2=0 then s:=s+i;

writeln('S=',s);

readln;

end.

Phạm Anh Thư
Xem chi tiết

Tham khảo:
https://hoc247.net/hoi-dap/tin-hoc-8/viet-chuong-trinh-tinh-tong-s-1-3-5-n-voi-n-duoc-nhap-faq259591.html

32.Thuỳ 7/2
Xem chi tiết
Nguyễn Hoàng Duy
13 tháng 3 2023 lúc 22:56

1.

Var i ,n : integer;

S , T : real;

Begin

Write ('n:') ;

Read (n) ;

S:= 0;

T:= 1;

For i:= 1 to n do

S:= S + i;

T:= T * i;

Writeln (' Tong cua ' ,n,' , S );

Writeln (' Tich của ' ,n,', T );

Readln;

End.

Nguyễn Hoàng Duy
13 tháng 3 2023 lúc 23:02

2.

program SumAndProductOfNumbers;

var
  n, m, i, sum, product: integer;

begin
  writeln('Enter the values of n and m: ');
  readln(n, m);
  
  sum := 0;
  product := 1;
  
  for i := n to m do
  begin
    sum := sum + i;
    product := product * i;
  end;
  
  writeln('The sum of numbers from ', n, ' to ', m, ' is: ', sum);
  writeln('The product of numbers from ', n, ' to ', m, ' is: ', product);
end.

Nguyễn Hoàng Duy
13 tháng 3 2023 lúc 23:03

3.

program SumAndProductOfNumbers;

var
  i, sum, product: integer;

begin
  sum := 0;
  product := 1;
  
  for i := 10 to 25 do
  begin
    sum := sum + i;
    product := product * i;
  end;
  
  writeln('The sum of numbers from 10 to 25 is: ', sum);
  writeln('The product of numbers from 10 to 25 is: ', product);
end.