Tin học Viết phương trình

K

Khôi Trần Cao 2k6

Học sinh chăm học
Thành viên
10 Tháng một 2020
115
208
61
18
Quảng Ngãi
Trường THCS
program tinh_tong;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
writeln('Nhap gia tri cho n : ');
readln(n);
s:=0;
for i:=1 to n do
s:=s+1;
writeln('Tong cua s la: ',s:5:1);
readln;
end.
Chúc bạn học tốt :cool::cool::cool::cool::cool:
 
Last edited:
Lục Vân Tiên

Lục Vân Tiên

Học sinh chăm học
Thành viên
4 Tháng tư 2017
340
231
131
Thanh Hóa
Minecraft Gamer
tinpham129@gmail.com said:
program tinh_tong;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
writeln('Nhap gia tri cho n : ');
readln(n);
s:=0;
for i:=1 to n do
s:=s+1;
writeln('Tong cua s la: ',s:5:1);
readln;
end.
Chúc bạn học tốt :cool::cool::cool::cool::cool:
Bấm để xem đầy đủ nội dung ...
Bạn ơi, thiếu điều kiện rồi, 1<n<1000
Thêm câu lệnh if trước vòng for nữa bạn!
 
You must log in or register to reply here.
Top Bottom