viết chương trình tính tổng các số lẻ từ 1...49 giúp mình với
2 câu trả lời
program oken;
uses crt;
var i,s: integer;
begin
clrscr;
for i:=1 to 49 do
if i mod 2=1 then
s:=s+i;
writeln('Tong cac so le tu 1->49: ',s);
readln;
end.
- Chương trình tính tổng số lẻ từ 1 đến 49
uses crt;
var i, S : integer;
begin
clrscr;
S := 0;
for i := 1 to 49 do
if i mod 2 <> 0 then S := S + i;
write('Tong S = ', S);
readln
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
