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.

#include <bits/stdc++.h>
using namespace std;
#define nmax 1000007
#define ll long long
int main()
{
    cin.tie(0)->sync_with_stdio(0);
    long long a, b;
    cin >> a >> b;
    cout << b / a << ' ' << b % a;
}

12 tháng 6

c++ 

 

 

uses crt;

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

n,i,x,t,dem:integer;

begin

clrscr;

readln(n);

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

readln(x);

dem:=0;

t:=0;

for i:=1 to n do 

  if a[i]>x then

begin

write(a[i]:4);

t:=t+a[i];

dem:=dem+1;

end;

writeln;

writeln(t);

writeln(dem);

readln;

end.

19 tháng 4 2023

loading...  

19 tháng 4 2023

không nhắn linh tinh? ở đây chỉ nhắn để hỏi bài thôi nhé :) 

29 tháng 3 2023

program CheckPrime;
var
  s: string;
  n: integer;
  
function IsPrime(n: integer): boolean;
var
  i: integer;
begin
  if n < 2 then
    IsPrime := false
  else
  begin
    IsPrime := true;
    for i := 2 to Trunc(Sqrt(n)) do
    begin
      if n mod i = 0 then
      begin
        IsPrime := false;
        Break;
      end;
    end;
  end;
end;

begin
  Write('Nhap vao mot chuoi: ');
  ReadLn(s);
  n := StrToInt(s);
  if IsPrime(n) then
    WriteLn('Day la mot so nguyen to')
  else
    WriteLn('Day khong phai la mot so nguyen to');
end.

23 tháng 2 2023

Var s,i:integer;

Begin

s:=0;

i:=0;

While S<1000 do

Begin

i:=i+1;

s:=s+i;

End;

Write('n la ',i);

Readln;

End.

24 tháng 2 2023

camonn ạvui

uses crt;

var n:integer;

begin

clrscr;

repeat

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

until n>0;

if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')

else writeln(n,' khong la so chinh phuong');

readln;

end.

5 tháng 4 2019

program hotrotinhoc ;

var n,P : integer ;

begin

P:=1;

while P<=2000 do

begin

n:=n+1;

P:=P*i ;

end;

write('P=',P);

readln

end.

program hotrotinhoc ;

var n,P : integer ;

begin

P:=1;

while P<=2000 do

begin

n:=n+1;

P:=P*i ;

end;

write('P=',P);

readln

end.

30 tháng 3 2020

Thầy mk chuyên về mt để mk hỏi xem~~~

30 tháng 3 2020

youtube.com

17 tháng 4 2021

program in_mang;

uses crt;

var i,n,max:longint;

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

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

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

end;

writeln('cac phan tu chan:');

for i:=1 to n do

if a[i] mod 2=0 then write(a[i]:3);

writeln;

max:=a[1];

for i:=1 to n do

if max<a[i] then max:=a[i];

writeln('max cua day la:',max);

readln;

end.

uses crt;

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

i,n,max:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

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

end;

for i:=1 to n do 

  if a[i] mod 2=0 then write(a[i]:4);

writeln;

max:=a[1];

for i:=1 to n do

  if max<a[i] then max:=a[i];

writeln(max);

readln;

end.