Question

Hãy in ra màn hình, hàng 1 có 15 chữ A, hàng 2 có 10 chữ H, hàng 3 có 7 chữ X

Answer 1

uses crt;

var i,j,k:integer;

begin

clrscr;

for i:=1 to 15 do 

  write('A');

writeln;

for j:=1 to 10 do 

  write('H');

writeln;

for k:=1 to 7 do 

  write('X');

readln;

end.

Answer 2

var i,j,k:longint;

begin

for i:=1 to 15 do 

  write('A');

writeln;

for j:=1 to 10 do 

  write('H');

writeln;

for k:=1 to 7 do 

  write('X');

readln;

end.