Em hãy viết câu lệch lặp hiển thị lên màn hình 5 chữ cái A
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.
Những câu hỏi liên quan
VT
1
NB
16 tháng 4 2023
program HienThiA;
var
i: Integer;
begin
i := 1;
while i <= 10 do
begin
writeln('A');
i := i + 1;
end;
readln;
end.
pascal nhỉ?
LT
4
10 tháng 5 2021
Program lap; Var i: integer; Begin For i:=1 to 5 do write('a'); Readln End.
10 tháng 5 2021
Program lap;
Var i: integer;
Begin
For i:=1 to 5 do write('A');
Readln
End.
26 tháng 3 2022
uses crt;
var i:integer;
a:array[1..20]of string;
begin
clrscr;
for i:=1 to 20 do readln(a[i]);
for i:=1 to 20 do
writeln('Xin chao, ban thu ',i,' ten la: ',a[i]);
readln;
end.
ML
28 tháng 3 2022
Program Hoc24;
var i: byte;
begin
for i:=1 to 20 do
writeln('Chao ban thu ',i);
readln
end.
NT
1
8 tháng 11 2021
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 100 do
if i mod 2=1 then write(i:4);
readln;
end.
K
1 tháng 3 2023
câu 1
program hieu_thuong;
uses crt;
var a,b,h,t:real;
begin
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
if a>=b then h:=a-b else h:=b-a;
t:=a/b;
writeln('hieu cua hai so ',a,'',b,' la ',h);
writeln('thuong cua hai so ',a,'',b,' la ',t);
readln;
end.
câu 2
program chuvi_dientich;
uses crt;
var cv,dt,d,r:real;
begin
write('nhap chieu dai d:');readln(d);
write('nhap chieu rong r:');readln(r);
cv:=( d + r ) * 2 ;
dt:= d * r ;
writeln('chu vi thua ruong la : ',cv);
writeln('dien tich thua ruong la : ',dt);
readln;
end.
5 tháng 12 2021
var a,b:longint;
begin
write('nhap a:');readln(a);
write('nhap b:');readln(b);
cau a) if a>b then write(a);
cau b) if a=b then write('hai so bang nhau') else write('hai so ko bang nhau');
cau c) if a mod b=1 then write('a le') else write('a chan');
readln
end.
mỗi câu a,b,c thì readln rồi end nhé
20 tháng 4 2021
Đề 1:
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
20 tháng 4 2021
Đề 2:
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;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
22 tháng 2 2022
uses crt;
var k,x,y:integer;
begin
clrscr;
readln(k);
x:=k mod 5;
y:=k div 5;
writeln(k,'/5=',x,' du ',y);
readln;
end.
for i:=1 to 5 do writeln('a');
for i:=1 to 5 do writeln('A');