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.

D
datcoder
CTVVIP
6 tháng 2

#include <bits/stdc++.h>

using namespace std;

int main(){

    int n;

    cin >> n;

    int a[n][n];

    for (int i=0; i<n;i++)

        for (int j=0;j<n;j++)

              a[i][j]=0;

    for (int i=0; i<n;i++){

        for (int j=0;j<n;j++)

              cout << a[i][j];

        cout <<endl;

     }

     return 0;

}

#include <bits/stdc++.h>

using namespace std;

int p;

int main()

{

cin>>p;

cout<<p/60<<":"<<p%60;

}

uses crt;

var st:string;

d,i,n:integer;

begin

clrscr;

readln(n);

str(n,st);

d:=length(st);

for i:=d downto 1 do

write(st[i]);

readln;

end.

19 tháng 3 2022

chương trình C++ ạ

uses crt;

var p,a,b:integer;

begin

clrscr;

readln(p)

a:=p div 60;

b:=p mod 60;

write(a,':',b);

readln;

end.

9 tháng 7 2022

#include <bits/stdc++.h>
#define ll long long
using namespace std;
ll i, j, n, a[1000005], dem = 0, m;
int main()
{
    ios::sync_with_stdio(0);
    cin.tie(0);
    cout.tie(0);
    cin >> n;
    for (i = 1; i <= n; i++)
    {
        cin >> a[i];
        if (a[i] % 3 == 0)
        {
            n--;
            i--;
        }
    }
    for (i = 1; i <= n; i++)
    {
        cout << a[i] << " ";
    }
    cout<<endl;
    for(i=1;i<=n;i++)
    {
        if(a[i]%5==0)
        {
            for(j=i;j<=n;j++)
            {
                a[j]=a[j+1];
            }
            n--;
            i--;
        }    
    }
    for(i=1;i<=n;i++)
    {
        cout<<a[i]<<" ";
    }
    return 0;
}

28 tháng 12 2019

uses crt;
var a,b,c,d:array[1..100]of integer;
n,i,dem,dem1,dem2:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------xu-ly------------------------------}
dem:=0;
dem1:=0;
dem2:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(dem);
b[dem]:=a[i];
end
else if a[i]=0 then
begin
inc(dem1);
c[dem1]:=a[i];
end
else begin
inc(dem2);
d[dem2]:=a[i];
end;
for i:=1 to dem do
write(b[i]:4);
for i:=1 to dem1 do
write(c[i]:4);
for i:=1 to dem2 do
write(d[i]:4);
readln;
end.

23 tháng 7 2021

Uses crt;

var i,n,dem:integer;

Begin

clrscr;

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

dem:=0;

for i:= 1 to n do

  begin

  if i mod 2 = 1 then 

    begin

    write(i,'   ');

    inc(dem);

    end;

  if dem mod 15 = 0 then writeln;

  end;

Readln;

End.

6 tháng 8 2021

uses crt;

var i,n,dem:longint;

BEGIN

clrscr;

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

dem:=0;

for i:=1 to n do 

begin

if n mod 2 =1  do 

begin

inc(dem);

write(i,' ')

if dem=15 then writeln;

end;

end;

readln;

end.