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.
4. program bai_4;
ues crt;
var
s,n,i:integer;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do
if i (mod 2=0) then s:=s+1;
write('tong la:',s:7);
readln;
end.
5.program bai_5;
uses crt;
var
i,s,n:integer;
begin
clrscr;
write('nhap n :');readln(n);
s:=0;
for i:=1 to n do s:=s+1;
writer('tong la:',s);
readln;
end.
8.program bai_8;
uses crt;
var
A:=array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('nhap n=');readln(n);
for i:= 1 to n do
begin
write('A[',i,']=');readln(A[i]);
end;
for i:= 1 to n do write(A[i],' ');
max:=a[1];
for i:= 1 to n do
if a[i] mod> max then:=a[i];
write('gia tri lon nhat trong mang la:',max);
readln;
end.
cho em hỏi..đap an tin hoc đề tài nầy em ko hiểu lắm...
cho dãy số nguyên A gồm n phân tử ( có giá trị đc nhập từ bàn phím ) dùng để lưu chiều cao của các bạn trong lớp. Viết chương trình in ra màn hình chiều cao của các bạn trong lớp
bạn ơi câu a của bạn ý j ạ mk giải dc hết hỏi xíu thui
ý của câu a đầu là j ??
-hoạt động của câu lệnh dạng thiếu là chương trình sẽ kiểm tra,nếu điều kiện đúng ,chương trình sẽ thực hiện , nếu điều kiện sai sẽ bỏ qua và kết thúc
-hoạt động của câu lệnh dạng đủ là chương trình sẽ kiểm tra điều kiện , nếu đúng thì chương trình thực hiện câu lệnh 1 , ngược lại chương trình sẽ thực hiện câu lệnh 2
Tham Khảo:
uses crt;
var ngay:integer;
lp:string;
begin
clrscr;
repeat
write('nhap so ngay thue phong khach san:'); readln(ngay);
if ngay<=0 then writeln('nhap lai');
until ngay>0;
repeat
write('nhap loai phong:'); readln(lp);
if (lp<>'A') and (lp<>'B') and (lp<>'C') then writeln('nhap lai');
until (lp='A') or (lp='B') or (lp='C');
case lp of
'A': write(300000*ngay);
'B': write(250000*ngay);
'C': write(200000*ngay);
end;
readln;
end.
c)
uses crt;
var i, n: integer;
a: array [1..100] of integer;
begin
write(' nhap n:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
writeln(a[i]);
readln
end.
d)
uses crt;
var i, le, chan: integer;
a: array[1..20] of integer;
begin
for i:=1 to 20 do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to 20 do
if a[i] mod 2 <> 0 then
writeln((a[i]) ,' la so le');
for i:=1 to 20 do
if a[i] mod 2 = 0 then
writeln((a[i]) ,' la so chan');
readln
end.
b)
uses crt;
var n,i:word;
T:longint;
begin
clrscr;
write('nhap n:');readln(n);
T:=1;
for i:=2 to n do T:=T*(1+i);
write('T = ',T);
readln;
end.