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.

30 tháng 4 2021

program in_xau;

uses crt;

var i:integer;

st1,st2:string;

begin

clrscr;

write('nhap xau:');readln(st1);

st2:='';

i:=length(st1);

while i>=1 do

begin

st2:=st2+st1[i];

i:=i-1;

end;

write(st2);

readln;

end.

19 tháng 2 2021

Gì thế ?

26 tháng 1 2021

123456789MNBVCXZ

27 tháng 12 2020

\(A:=Sqrt\left(a\right)+b\text{ }div\text{ }k\)

=> \(A=\sqrt{25}+10\text{ }div\text{ }3\)

\(A=5+3=8\)

 
11 tháng 12 2020

program tinh_tong;

uses crt;

var a,i,n : integer;

begin

a:=0

writeln('nhap so tu nhien can tinh tong');readln(n);

If (n> 2018) then write('nhap lai'), else 

For i:=1 to n do a:=a+i;

writeln('tong cac so tu nhien',a);

readln;

end.