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.
uses crt;
var i:integer
BEGIN
for i:=1 to 100 do
writeln('chao cac ban);
readln;
END.
program bai1;
var i:longint;
begin
for i:=1 to n do
writeln('Chao cac ban');
readln
end.
program so_tu_nhien_chan;
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
write('Cac so chan nho hon hoac bang ',n,' la: ');
for i:=2 to n do
if i mod 2=0 then write(i:4,' ;');
readln;
end.
program XinChao;
uses crt;
begin
clrscr;
writeln('Xin chao cac ban!');
writeln('Toi ten la Huyen Minh Lam Nguyet ');
writeln('Toi hoc lop 9');
readln;
end.
program vd1;
uses crt;
begin
clrscr;
writeln('chao cac ban toi la minh');
readln;
end.
Uses crt;
Var i,n,x:integer;
s:array[1..10000] of integer;
Begin
clrscr;
Write('Nhap do dai cua day: ');readln(n);
for i:= 1 to n do
begin
write('So thu ',i,' = ');
readln(s[i]);
End;
Writeln('Cac so chinh phuong co trong day:');
for i:= 1 to n do
Begin
x:=trunc(sqrt(s[i]));
if sqr(x) = s[i] then write(s[i],' ');
end;
Readln;
End.
1. Khai báo 2 biến: a và b (trong đó: a là chiều dài, b là chiều rộng)
Cho người dùng nhập giá trị vào 2 biến trên
Công thức chu vi:(a+b)*2
Công thức diện tích: a*b
Điều kiện bổ sung:
+ Nếu a <= 0 hoặc b <=0 hoặc cả a,b <=0 => Báo lỗi (Chiều dài không bao giờ âm)!
+ Nếu a=b => Báo lỗi (Hình chữ nhật thì chiều dài không thể bằng chiều rộng)
de 3
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.
Lời giải :
program hotrotinhoc ;
var a: array[1..32000] of integer ;
i,n,max : integer ;
begin
write('Nhap n='); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:= 1 to n do if max<a[i] then max:=a[i];
write('So lon nhat la:',max');
readln
end.
begin
write('Chao cac ban! Ten toi la...');
Readln
End.
hay viet chuong trimh dua ra ngoai man hinh dong thong bao "Chao cac ban! Ten toi la..." (sử dụng ngôn ngữ pascal):
program hello;
begin
writeln('Chào các bạn! Tên tôi là...');
readln;
end.