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.

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.

20 tháng 3 2022

refer

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

20 tháng 3 2022

tham khảo

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

20 tháng 3 2022

tham khảo

 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 10 do

t:=t+i;

writeln('Tong cac so tu nhien tu 1 toi 10 la: ',t);

readln;

end.

20 tháng 3 2022

refer

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

Câu 1: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do 

  s:=s+i;

writeln('Tong cua 10 so tu nhien dau tien la: ',s);

readln;

end.

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do

if a[i]>0 then inc(dem);

writeln('So luong phan tu duong la: ',dem);

readln;

end.

Câu 3: 

uses crt;

var i,j:integer;

begin

clrscr;

for i:=1 to 9 do 

  begin

      writeln('Bang nhan ',i,' la: ');

for j:=1 to 10 do 

  writeln(i,'*',j,'=',i*j);

delay(200);

end;

readln;

end.

3 tháng 3 2023

n = int(input('Nhập số n lớn hơn 2: '))

tong = 0

i = 2

while i <= n:

       tong += i

       i += 1

print('Tổng các số từ 2 đến', n, 'là:', tong)

7 tháng 3 2023

while..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

write('Nhap N: '); readln(n);

i:=0; s:=0;

while i<n do

begin

i:=i+1;

s:=s+i*(i+1);

end;

write('S=',S);

readln

end.

7 tháng 3 2023

For..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

write('Nhap N: '); readln(n);

s:=0;

for i:=1 to n do s:=s+i*(i+1);

write('S=',S);

readln

end.

10 tháng 3 2023

Program HOC24;

Uses crt;

var i,j: integer;

j:=1; i:=0;

while(j<=50) do

begin

j:=j+1;

if(j mod 2=0) then i:=i+j;

end;

writeln(i);

readln;

end.

 

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.

28 tháng 3 2022

Program Hoc24;

var i: byte;

begin

for i:=1 to 20 do

writeln('Chao ban thu ',i);

readln

end.

có đúng ko vậy cô dam mai em thi r ạ