Viết chương trình để nhập tên và hiển thị ra màn hình lời chào các bạn trong lớp (30 học sinh) 18/07/2021 Bởi Nevaeh Viết chương trình để nhập tên và hiển thị ra màn hình lời chào các bạn trong lớp (30 học sinh)
Program xin_chao; Uses crt; Begin Clrscr; Writeln(‘Hay nhap ten cua ban: ‘); Readln; Writeln(‘Xin chao tat ca cac ban trong lop’); Readln; End. # Mình nghĩ là như vậy Bình luận
program loi_chao; uses crt; var ten:array[1..30] of string; i:byte; begin clrscr; for i:=1 to 30 do begin write(‘Nhap ten ban thu ‘,i,’: ‘); readln(ten[i]); end; for i:=1 to 30 do begin writeln(‘Chao ban ‘,ten[i]); delay(150); end; readln; end. Bình luận
Program xin_chao;
Uses crt;
Begin
Clrscr;
Writeln(‘Hay nhap ten cua ban: ‘);
Readln;
Writeln(‘Xin chao tat ca cac ban trong lop’);
Readln;
End.
# Mình nghĩ là như vậy
program loi_chao;
uses crt;
var ten:array[1..30] of string;
i:byte;
begin
clrscr;
for i:=1 to 30 do
begin
write(‘Nhap ten ban thu ‘,i,’: ‘); readln(ten[i]);
end;
for i:=1 to 30 do
begin
writeln(‘Chao ban ‘,ten[i]);
delay(150);
end;
readln;
end.