ai giúp tớ với viết phương trình pascal đếm số chẵn từ 1 đến 100
2 câu trả lời
var i:integer;
begin
for i:=1 to 100 do
if i mod 2=0 then writeln (i);
readln;
end.
program oken;
uses crt;
var i,dem: byte;
begin
clrscr;
for i:=1 to 100 do
if i mod 2=0 then
dem:=dem+1;
writeln('co ',dem,' so chan tu 1 den 100');
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề 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
