Những câu hỏi liên quan
Phú Nhuận Nguyễn
Xem chi tiết
Phú Nhuận Nguyễn
18 tháng 3 2021 lúc 18:42

Giúp mình vs

Bình luận (0)
Nguyễn Hoàng Long
18 tháng 3 2021 lúc 19:19

a) tính tổng các số chẵn từ 1 đến 50
b)
  (3): lệnh viết kq của ct trên.
  (4):lệnh in ra màn hình kq của bài toán.
  (5):lệnh kết thúc ct.

Bình luận (0)
Nguyễn Lê Phước Thịnh
18 tháng 3 2021 lúc 20:16

a) Tính tổng các số chẵn từ 1 đến 50

b) (3): Cộng các số chẵn trong khoảng từ 1 đến 50

(4): Xuất tổng

(5): Lệnh chờ đợi chương trình xử lý và chạy

Bình luận (0)
Nguyễn Lê Phước Thịnh
Xem chi tiết
M r . V ô D a n h
21 tháng 7 2021 lúc 21:03

dàiiiiiiiiiiiiiiiiiiiiiiiiiii

Bình luận (1)
弃佛入魔
21 tháng 7 2021 lúc 21:03

cmt đầu có được fan cứng không

Bình luận (1)
Kậu...chủ...nhỏ...!!!
21 tháng 7 2021 lúc 21:06

ai đúng hết hoặc nhiều thì chúc mừng

Bình luận (0)
Phú Nhuận Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 3 2021 lúc 20:17

a) Tính tổng các số chẵn từ 1 đến 50

b) (3): Cộng các số chẵn trong khoảng từ 1 đến 50

(4): Xuất tổng

(5): Lệnh chờ đợi chương trình xử lý và chạy

Bình luận (0)
Ba chú heo con
Xem chi tiết
depgaiqua
Xem chi tiết
Minh Lệ
26 tháng 2 2021 lúc 17:09

Program HOC24;

var i,n,s: integer;

begin

writeln('Chuong trinh tinh tong S = 1 + 2 +3 +...+ n');

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

s:=0; i:=1;

while i<n do

begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);

readln

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
26 tháng 2 2021 lúc 21:24

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

i:=0;

while i<=n do 

begin

i:=i+1;

s:=s+i;

end;

writeln(s);

readln;

end.

Bình luận (0)
Phạm Lê Quỳnh Nga
Xem chi tiết
Anh Lê duy
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 12 2021 lúc 10:15

Chọn A

Bình luận (0)
Trần Nguyễn Hoàng Nam
Xem chi tiết
ttanjjiro kamado
24 tháng 3 2022 lúc 17:14

program  bang_cuu_chuong ;

Uses crt;

Var N , i : integer ;

Begin 

           Clrscr ; 

          write('Nhap so N=');

          readln(N);

          writeln;
          write ('Bang nhan',N) ;

          writeln;

           for i:=1 to 10 do

          writeln(N,'x',i:2,'=',N*i);

          readln ;

          End.

Bình luận (0)
ttanjjiro kamado
24 tháng 3 2022 lúc 17:14

đau tay

Bình luận (0)
Minh Lệ
24 tháng 3 2022 lúc 17:34

Chương trình sau khi sửa lỗi:

Program bang_cuu_chuong;

Uses crt;

Var N: real;

      i: integer;

Begin

clrscr;

write('Nhap so N=');readln(N);

writeln;

writeln('Bang nhan ',N);

writeln;

for i:=1 to 10 do

writeln(N,' x ',i:2,' = ',N);

readln

end.

Bình luận (0)
Ho Truong Minh
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 4 2022 lúc 14:53

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

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

writeln(s);

readln;

end.

Bình luận (0)