1.75m2

ko có cách nào bạn ơi

program tt;

ues crt;

var i,s:longint;

begin

clrscr;

s:=0;

i:=0;

while i<=100do

begin

inc(i);

s:=s+i;

end;

readln;

end.

6.4 nha bạn

26:b

27:d

28:b

29:d

program dn;

uses crt;

var s,d:string;

i:integer;

begin

write('nhap xau:');

readln(s);

d:='';

for i:=length(s) downto 1 do d:=d+s[i];

writeln('do dai cua xau do la :',length(s));

writeln('xau theo thu tu dao nguoc la : ',d);

readln

end.

đóng màn hình máy tính

chắc chắn là:160 392 54