">
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.

10 tháng 12 2020

1: 

max:=a;

if max<b then max:=b;

2: 

min:=a;

if min>b then min:=b;

3: if (x=sqr(a)+sqr(b)) and (a<0) then writeln(x);

if (x=sqrt(b)+sqrt(a)) and (a>0) then writeln(x);

10 tháng 12 2020

Anh ơi giúp e

à nó có updates kìa, bạn updates đi

bạn thử vào microsoft store xem

17 tháng 10 2021

nhìn mặc áo hình như trò chơi con mực đúng hông đấy là trò giết người hả

Tl :

Khong duoc viet lung tung tren dien dang

~ H T ~

28 tháng 4 2017

1/

program uoc;

uses crt;

var n,i,dem,x:word;

a:array[1..20] of longint;

begin

clrscr;

write('nhap so phan tu cua day:') ;readln(n);

while n>20 do

begin

write('nhap lai so phan tu thoa man toi da la 20 phan tu:');

readln(n);

end;

writeln('nhap cac phan tu cua mang:');

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

write('nhap so nguyen x:'); readln(x);

dem:=0;

for i:=1 to n do

if x mod a[i] =0 then

begin

dem:=dem+1;

writeln(a[i],' la uoc cua ',x);

end;

if dem=0 then writeln('khong co phan tu la uoc cua ',x)

else write('co ',dem,' phan tu la uoc cua ',x);

readln;

end.banhqua

18 tháng 12 2021

Xin lỗi bạn nha muốn làm lắm nhưng bạn đang kiểm tra nên là tự làm nha!!

18 tháng 12 2021

ko p bài của minh đâu

 

Câu 5: D

 

20 tháng 1 2017

o tôi xin 1 bài mẫu dạng này