Viết chương trình in ra màn hình các số tự nhiên chẵn theo thứ tự từ 1 đến 100
Giúp em với mnggg
2 câu trả lời
Program viet_chuong_trinh;
Uses Crt;
Var i，s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.
uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
writeln('cac so chan trong khoang tu 1 toi ',100,' la:');
for i:=1 to 100 do
if i mod 2=0 then write(i:4);
readln;
end.
Chúc bạn học tốt . ☺☺☺xin hay nhấ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
- Đề 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
