Một số khái niệm về lập trình và ngôn ngữ lập trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Mỹ Duyên

1 viết chương trình kiểm tra số dương (âm), số chẵn (lẻ)

2 viết câu lệnh FOR - Do trình tính tổng các số lẻ trong phạm vi từ 1...100

Nguyễn Lê Phước Thịnh
13 tháng 12 2019 lúc 21:30

1:

uses crt;

var n:integer;

begin

clrscr;

write('n='); readln(n);

if n>0 then writeln(n,' la so duong')

else if n<0 then writeln(n,' la so am')

else writeln(n,' khong la so duong cung khong la so am');

if n mod 2=0 then writeln(n,' la so chan')

else writeln(n,' la so le');

readln;

end.

2:

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do

if i mod 2=0 then t:=t+i;

writeln('tong cac so le trong pham vi tu 1 toi 100 la: ',t);

readln;

end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Trùm Trường
Xem chi tiết
Nguyễn Công Tuấn
Xem chi tiết
Nguyễn Công Tuấn
Xem chi tiết
Long Thiên
Xem chi tiết
bui pham phuong Uyen
Xem chi tiết
Nguyễn trọng toàn
Xem chi tiết
Long Thiên
Xem chi tiết
Nguyễn Trinh Quyết
Xem chi tiết
Dang Dinh Trong
Xem chi tiết