Viết chương trình nhập một số nguyên 10 khác 0 từ bàn phím, viết ra màn hình các số tự nhiên chẵn Giúp giùm ạ
2 câu trả lời
Var n,i:integer;
Begin
Write (' nhap n : ');
Readln (n);
For i:= 1 to n do If i mod 2 <>0 then Writeln (' cac so le co trong so do : ',i:4);
Readln;
end.
program oken;
uses crt;
var n,i: integer;
begin
clrscr;
write('Nhap 1 so bat ky: '); readln(n);
write('Cac so chan: ');
for i:=1 to n do
if i mod 2=0 then
write(i,' ');
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
