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.

Tức là bạn cộng n số từ 1 tới n sao cho khi cộng tới số n thì bạn được một số lớn hơn hoặc bằng 10 thì dừng

17 tháng 5 2021

Mình có bị nhưng có cách giải quyết đấy !

Bạn uninstall bản free pascal đấy đi rồi tải bản khác hoặc bạn có thể update cũng được

17 tháng 5 2021

mình làm rồi mà không được bạn

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.

30 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long m,n,x,y;

int main()

{

cin>>m>>n>>x>>y;

cout<<min(m,min(n,min(x,y)));

return 0;

}

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ủ! !

26 tháng 4 2021

giúp mình vs ạ

 

27 tháng 4 2021

Giup minh voi aj 9h30 minhf thi roi

 

*Câu lệnh For..do

Dạng xuôi: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

*Câu lệnh For..do

Dạng ngược: For <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;