Question

C1:viết chương trình tính tổng thừ 1 ---> 50

C2: viết chương trình in ra màn hình 5 chữ Vinatinhoc và 5 chữ .net

03: viết chương trình in ra màn hình 10 chữ Vinatinhoc.net (thực hiện vòng lặp)

Giúp tuii vs mn ơiii !!!

Answer 1

Câu 1:

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=1 to 50 do

s:=s+i;

writeln('tong tu 1 toi 50 la: ',s);

readln;

end.

Câu 2:

uses crt;

var i,j:byte;

begin

clrscr;

for i:=1 to 5 do

writeln('Vinatinhoc');

for j:=1 to 5 do

writeln('.net');

readln;

end.

Câu 3:

uses crt;

var i:byte;

begin

clrscr;

for i:=1 to 10 do

writeln('Vinatinhoc.net');

readln;

end.