Vct đếm xem có bao nhiêu số chẵn từ 1-100.In đếm.Lưu lại với ten Bai1 Mình học ngôn ngữ pascal nhé mới tới 4 kiểu dữ liệu:char,real,string,integer
2 câu trả lời
uses crt;
var i,d:integer;
begin
clrscr;
d:=0;
for i:=1 to 100 do
if i mod 2=0 then d:=d+1;
writeln('Tu 1 den 100 co ',d,' so chan');
readln
end.
- Viết chương trình đếm số chẵn từ 1 đến 100
uses crt;
var i, dem : integer;
begin
clrscr;
dem := 0;
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.
- Đề 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
