Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
câu 1 : viết chương trình tính tổng các số lẻ trong khoảng từ 1 đến 200
câu 2 : viết chương trình nhập vào một số nguyên tố bất kì , kiểm tra xem số đó là chắn hay lẻ
Viết chương trình nhập vào N số nguyên từ bàn phím. Tính tổng các số âm lẻ từ N số đó.
Lớp mình cũng cãi nhau inh ỏi vì cái chuyện này -.-. Cô giáo mình bảo là 5*5>=25 là đúng
ct1:
program (tự đặt tên);
uses crt;
var max,i,n:integer;
begin
clrscr;
max:=0; i:=1;
while i<=10 do
begin
write('n',i,'='); readln(n);
if n>max then max:=n;
i:=i+1;
end;
write('so lon nhat la:',max);
readln
end.
ct2:
program bt;
uses crt;
var a:array[1..1000] of integer;
max,i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to 10 do
if a[i]>max then max:=a[i];
write('so lon nhat trong cac so la:',max);
readln
end.
Sự khác nhau giữa hai ct:
- Khác nhau về cách khai báo
- Khác nhau ve cách trình bày
Bạn hãy chạy thử chương trình trước nha
tt