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.

9 tháng 11 2021

thi ban co nho lai mat khau la j , ban nho xem ban co doi mat khau ko

9 tháng 11 2021

mik gõ r mà mik chắc chắc 100% mật khẩu đó đúng . À mà mik lấy nick em mik vào trang của mik thì nó để là Nick đã bị đổi chủ! !

8 tháng 11 2021

Đổi ở đâu bạn

 

8 tháng 11 2021

sau khi đổi ảnh xog thì ấn phím Ctrl + F5 để lưu nha

uses crt;

var a,b,x,y:integer;

//chuongtrinhcon

function ucln(var a,b:integer):integer;

var r:integer;

begin

while b>0 do

begin

r:=a mod b;

a:=b;

b:=r;

end;

ucln:=a;

end;

//chuongtrinhchinh

begin

clrscr;

readln(a,b);

x:=a;

y:=b;

if (x>0) and (y>0) then writeln(x div ucln(a,b),' ',y div ucln(a,b));

if (x<0) and (y<0) then 

begin

x:=abs(x);

y:=abs(y);

a:=abs(a);

b:=abs(b);

writeln(x div ucln(a,b),' ',y div ucln(a,b));

end; 

if (x<0) and (y>0) then 

begin

write('-');

x:=abs(x);

y:=abs(y);

a:=abs(a);

b:=abs(b);

writeln(x div ucln(a,b),' ',y div ucln(a,b));

end;

if (x>0) and (y<0) then 

begin

write('-');

x:=abs(x);

y:=abs(y);

a:=abs(a);

b:=abs(b);

writeln(x div ucln(a,b),' ',y div ucln(a,b));

end;

readln;

end.

28 tháng 4 2021

pascal hả

13 tháng 4 2021

ờ ờ tớ không biết nhé 

16 tháng 4 2023

program Tong_Binh_Phuong_So_Chan;

uses crt;

var n, i, sum: integer;

begin

     clrscr;

     write('Nhap vao so nguyen n (6 < n < 30): ');

     readln(n);

     sum := 0;

     for i := 2 to n do

          if i mod 2 = 0 then

               sum := sum + i * i;

     writeln('Tong binh phuong cac so chan tu 1 den ', n, ' la: ', sum);

     readln;

end.

12 tháng 12 2019

@buithianhtho,@HISINOMA KINIMADO,@Vy Lan Lê,@Phạm Hoàng Lê Nguyên,...CTV khác nx,...ko làm đc thì phải đạp đổ.

Muốn nổi rồi!ko có ý phá hay j cả!!!

12 tháng 12 2019

??? j vậy

Câu 2: 

uses crt;

var i,n,t:integer;

begin

clrscr;

n:=0;

t:=0;

repeat

n:=n+1;

t:=t+n;

until t>100;

writeln(t);

readln;

end.

 

25 tháng 5 2022

C2:

var i,s: integer;

begin

while s<=100 do begin

s:=s+i;

i:=i+1;

end;

write(s);

readln

end.

a: n=10

b: uses crt;

var i,s,n:integer;

begin

clrscr;

s:=0; 

for i:=1 to 4 do s:=s+i;

write(s);

readln;

end.