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.

13 tháng 4 2023

Program HOC24;

var i,j: byte;

begin

for i:=1 to 4 do

begin

for j:=1 to 10 do write('Y');

writeln;

end;

readln

end.

16 tháng 6 2020

Vì bạn writeln(i) mà nên biến đếm phải là i, nếu bạn thay biến đếm khác i thì không in ra được kết quả.

16 tháng 6 2020

à, lỗi rồi, mình xin sửa lại là writeln <biến đếm>; xin lỗi.

13 tháng 3 2019

program ko_co_ten;

uses crt;

var i:integer;

begin

clrscr;

for i:1 to 50 do writeln(i);

readln;

end.

14 tháng 3 2019

program fh;

uses crt;

var i: integer;

begin

clrscr;

writeln('50 so chan tu nhien dau tien la: ');

for i:=1 to 50 do write(i);

readln

end.

8 tháng 4 2017

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

uses crt;

var i,j:integer;

begin

clrscr;

for i:=1 to 4 do 

  begin

for j:=1 to 4 do 

  write('*');

writeln;

end;

readln;

end.

11 tháng 4 2022

mình ghi thiếu tại đăng vội quá :")))

 

11 tháng 4 2022

Nãy mình viết thiếu mn ơi :"))

 

25 tháng 1 2018

program bai1;

var n,du,d:longint;

begin

write('N= ');readln(n);

d:=0;

while n<>0 do

begin

du:=n mod 10;

d:=d+1;

n:=n div 10;

end;

writeln('So chu so la ',d);

readln

end.

uses crt;

var i,j,kt:integer;

begin

clrscr;

for i:=100 to 1 do write(i:4);

writeln;

for i:=2 to 100 do 

  begin

kt:=0;

for j:=2 to trunc(sqrt(i)) do

  if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

readln;

end.