K
Khách

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.

27 tháng 4 2017

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.

18 tháng 7 2017

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.

banhqua

27 tháng 4 2017

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.

27 tháng 4 2017

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.

19 tháng 4 2017

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
17 tháng 12 2018

viết j z???

17 tháng 12 2018

???

30 tháng 3 2021

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 ??

30 tháng 3 2021

vieets chưng trình hay j á

2 tháng 4 2021

Bạn có thể nêu rõ là phần thân của chương trình nào được không(vd: số nguyên tố, số song tố, ...) 

17 tháng 12 2018

begin

writeln(' THCS Binh An ');

readln;

end.

17 tháng 12 2018

Program @Nk>↑@(cái này cho vui thôi nha);

Uses Crt;

Begin

Clrscr;

Writeln('THCS Binh An');

Readln;

End.

7 tháng 12 2017

bọn chưa học tin học , kì II lận

7 tháng 12 2017

-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

30 tháng 11 2021

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.