uses crt;

var st1,st2:string;

begin

clrscr;

readln(st1);

readln(st2);

writeln('Ten minh ',st1);

writeln('Lop ',st2);

readln;

end.

cảm ơn nhìu ạ

1. Var n,i:integer;

Begin

Write (' nhap n : ');

Readln (n);

For i:= 1 to n do If i mod 2 <>0 then Writeln (' cac so le co trong so do : ',i:4);

Readln;

end.

1m=1000mm => 0.1*10000=1000mm

=> Phair gapas 10000 lanfa

uses crt;

const tb=30000;

var tt, dg, sp: real;

ht, dc: string;

begin

clrscr;

write('Nhap ho ten khach hang: ');

readln(ht);

write('Nhap dia chi khach hang: ');

readln(dc);

write('Nhap don gia: ');

readln(dg);

write('Nhap so phut su dung: ');

readln(sp);

tt:=dg*sp+tb;

write('Quy khach phai tra: ',tt,' dong.');

readln

end.

Chúc em học tốt!

program crtg;

uses crt;

var n,i, j: integer;

A: array[1..1000] of byte;

tb: integer;

min,max: byte;

begin

clrscr;

writeln('Nhap do dai day A: '); read(n);

writeln('Nhap cac phan tu cua day: ');

for i:=1 to n do

begin

writeln('a[',i,'] = ');

repeat

read(a[i]);

until a < 100;

end;

for i:= 1 to n do

begin

if a[i] <> 1 then

begin

j:= 2;

while (a[i] mod j <> 0) do j:=j+1;

if j = a[i] then write(a[i]',');

end;

end;

tb:=0;

for i:=1 to n do

tb:=tb+a[i];

tb:=tb/n;

writeln('Gia tri trung binh cua day tren la: ',tb);

max:=a[1]; min:=a[1];

for i:=2 to n do

begin

if a[i] < min then min:=a[i];

if a[i] > max then max:=a[i];

end;

writeln('Gia tri lon nhat cua day la ',max);

writeln('Gia tri nho nhat cua day la ',min);

readln

end.

Lời giải :

+ Số chẵn:

program hotrotinhoc ;

var i : integer ;

begin

for i:= 1 to 100 do

if i mod 2 =0 then write(i);

readln

end.

+ Số lẻ :

program hotrotinhoc ;

var i : integer ;

begin

for i:= 1 to 100 do

if i mod 2 <> 0 then write(i);

readln

end.

Cho hai xâu kí tự “Lớp” và “8A”. Có thể định nghĩa nhiều “phép toán” trên tập hợp các dữ liệu kiểu xâu. Chẳng hạn phép ghép: Lớp + 8A = Lớp8A

hayyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy

Uses crt;
Var a,b,n:integer; {hoặc real,longint {tùy vào đơn vị của các số có nhỏ hay lớn}}
Begin
Writeln('Nhap so n la:'); Readln(n);
a:=0; b:=0;
While a<=n do
 Begin
   b:=b+a;
   a:=a+1; {chỉ áp dụng khi tính tổng liên tiếp từ 1->n, không áp dụng tính tổng các số chẵn}
 end;
Writeln('Vay tong cac so tu 1 -> ',n,' la:',b);
Readln
End.
*Nếu bạn muốn giải theo cách for..do hay tính tổng các số chẵn hay gì gì đó liên quan đến Tin học thì bảo mình nhé* Good luck for you :D :D 

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

  t:=t+i;

writeln(t);

readln;

end.

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

if i mod 2=0 then write(i:4);

readln;

end.

Ủa bạn ngay chỗ var n i: integer có thể thay thế bằng longint ko