Câu 1:

uses crt;

begin

clrscr;

writeln(2*(1/5+2*2*2));

readln;

end.

Câu 2: n số tự nhiên liên tiếp bắt đầu từ mấy vậy bạn?

Câu 3:

uses crt;

var i,s:longint;

begin

clrscr;

s:=0; i:=1;

while i<=1000 do

begin

s:=s+i;

inc(i);

end;

writeln(s);

readln;

end.

Cảm ơn nhiều nha bạn 🤩😍

uses crt;

var a,b,cv,dt:real;

begin

clrscr;

write('dai='); readln(a);

write('rong='); readln(b);

if (a>0) and (b>0) and (a>=b) then

begin

cv:=(a+b)*2;

dt:=a*b;

writeln('chu vi la: ',cv:4:1);

writeln('dien tich la: ',dt:4:1);

end

else writeln('vui long nhap lai');

readln;

end.

b) Real

AAAAA

uses crt;

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

i,n,j,m,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

write('m='); readln(m);

for j:=1 to m do

begin

write('b[',j,']='); readln(b[j]);

end;

dem:=0;

for i:=1 to n do

begin

inc(dem);

c[dem]:=a[i];

end;

for j:=1 to m do

begin

inc(dem);

c[dem]:=b[j];

end;

writeln('mang C la:');

for i:=1 to dem do

write(c[i]:4);

readln;

end.

var i,n:longint;

a:array[1..1000000] of int64;

begin

readln(N);

for i:=1 to n do read(a[i]);

for i:=1 to n do write(a[i],' ');

readln(N);

for i:=1 to n do read(a[i]);

for i:=1 to n do write(a[i],' ');

readln;

end.

lặp vô hạn man

vô hạn bạn ơi

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.

uses crt;

var n,i,dem,dem1,dem2:integer;

a,b,c,d:array[1..50]of integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

{------------------------------dem-so-duong----------------------------------}

dem:=0;

for i:=1 to n do

if a[i]>0 then

begin

inc(dem);

b[dem]:=a[i];

end;

writeln('co ',dem,' so duong trong day A');

writeln('cac so do la: ');

for i:=1 to dem do

write(b[i]:4);

{-----------------------------dem-so-am----------------------------------}

writeln;

dem1:=0;

for i:=1 to n do

if a[i]<0 then

begin

inc(dem1);

c[dem1]:=a[i];

end;

writeln('co ',dem1,' so am trong day A');

writeln('cac so do la: ');

for i:=1 to dem1 do

write(c[i]:4);

{-----------------------------dem-so-0---------------------------------}

writeln;

dem2:=0;

for i:=1 to n do

if a[i]=0 then

begin

inc(dem2);

d[dem2]:=a[i];

end;

writeln('co ',dem2,' so 0 trong day');

writeln('cac so do la: ');

for i:=1 to dem2 do

write(d[i]:4);

readln;

end.

cảm ơn bạn hiều nhé

Bài 1:

uses crt;

var i:byte;

begin

clrscr;

for i:=1 to 50 do

write('*');

readln;

end.

Bài 2:

uses crt;
var i,j:byte;
begin
clrscr;
for i:=1 to 10 do
begin
for j:=1 to 50 do
write('*');
writeln;
end;
readln;
end.

Giúp mình bài tập 3 luôn với