NT
2
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
8 tháng 5 2023
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.
6 tháng 10 2021
Em cũng làm được cái này nhưng hai câu nó không xuống dòng mà nó cứ ra liên tiếp. Giúp e với
VT
3
4 tháng 6 2020
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.
T
1
DT
21 tháng 3 2022
program vd1;
uses crt;
begin
clrscr;
writeln('chao cac ban toi la minh');
readln;
end.
DQ
1
22 tháng 7 2021
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.
20 tháng 6 2020
uses crt;
var a:array[1..100]of integer;
n,i,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so nguyen duong la: ');
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
writeln;
writeln('Cac so nguyen to la: ');
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
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.