viết đoạn lệnh tính tổng của các số tự nhiên lẻ không vượt quá 2018 bằng 2 cách
a. Sử dụng câu lệnh for-do
b. Sử dụng câu lệnh while-do
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.
program tinh_tong;
uses crt;
var a,i,n : integer;
begin
a:=0
writeln('nhap so tu nhien can tinh tong');readln(n);
If (n> 2018) then write('nhap lai'), else
For i:=1 to n do a:=a+i;
writeln('tong cac so tu nhien',a);
readln;
end.