Bài 1: Thông tin và tin học

Bảo Diêm

Viết chương trình tính tổng 50 số tự nhiên đầu tiên S= 1+2+3+4+…..+50

Minh Lệ
20 tháng 3 2020 lúc 11:27
Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
20 tháng 3 2020 lúc 11:52

uses crt;

var s,i:longint;

begin

clrscr;

s:=0;

for i:=1 to 50 do

s:=s+i;

writeln('S=',s);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa
Lân Trần Quốc
20 tháng 3 2020 lúc 17:52

Source: https://ideone.com/prk2gt (pascal)

Chúc bạn học tốt nhaok

Bình luận (0)
 Khách vãng lai đã xóa
Lương Tuấn Hưng
20 tháng 3 2020 lúc 19:41

program tinh_tong;

uses crt;

vaari,n:interger

S:longint;

begin

n:50; S=1;

for i:=1 to 50 do S:= s+i;

write(' tong cua ',n,' so tu nhien dau tien la ',S);

readln

end.

chúc bạn học tốt!

Bình luận (0)
 Khách vãng lai đã xóa
Lương Tuấn Hưng
20 tháng 3 2020 lúc 19:44

var i,s:integer;

begin

s:0;

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

write('Tong:',S);

readln;

end

bạn có thể dùng câu này ngắn hơn!

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Như Tình
Xem chi tiết
Lương Phương Anh
Xem chi tiết
Như Tình
Xem chi tiết
Thuc Nguyen
Xem chi tiết
Lâm Dolce
Xem chi tiết
Phương Hiền
Xem chi tiết
vu thuy trang
Xem chi tiết
Từ Hoàng Bảo Nguyên
Xem chi tiết
Đặng Văn Sĩ
Xem chi tiết