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.

26 tháng 12 2022

tham khảo ;

uses crt;

var i:integer;

begin

clrscr;

for i:=1 to 20 do 

  begin

delay(50);

writeln('a');

end;

readln;

end

chép mạng có sai thì  thông cảm nhahaha

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

if (a%b==0) cout<<"YES";

else cout<<"NO";

return 0;

}

17 tháng 6 2022

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

if (a%b==0) cout<<"YES";

else cout<<"NO";

return 0;

}

uses crt;

var a:array[1..100]of integer;

i,n,t,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

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

end;

t:=0;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then

begin

t:=t+a[i];

inc(dem);

end;

writeln('Tong cac so chan la: ',t);

writeln('So luong so chan la: ',dem);

readln;

end.

1 tháng 12 2021

giúp em với

 

1 tháng 12 2021

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

write('a='); readln(a);

write('b='); readln(b);

c= a+b;

write('Tong hai so a b la:',c);

end.

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]):

dem:=0;

for i:=1 to n do if a[i] mod 5=0 then inc(dem);

writeln(dem);

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;

}

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]):

dem:=0;

for i:=1 to n do if a[i] mod 2=0 then inc(dem);

writeln('so so chan la: ',dem);

writeln('so so le la: ',n-dem);

readln;

end.