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;long long h,k,i,j,cnt,l,r,lef,righ;void bmp(long long i){lef=0;righ=(cnt-i*200)/100;for(h=lef;h<=righ;h++){for(k=1;k<=i;k++) cout<<200<<" ";for(k=1;k<=h;k++) cout<<100<<" ";for(k=1;k<=(cnt-h*100-i*200)/50;k++) cout<<50<<" ";cout<<"\n";}}int main() {    ios_base::sync_with_stdio(false);    cin.tie(NULL);    cin>>cnt;if(cnt%50!=0) {cout<<"-1"; return 0;}l=0;r=cnt/200;for(i=l;i<=r;i++){bmp(i);}    return 0;}
// bạn tự viết file vào ra nha 
3 tháng 5 2017

Nháp đúp chuột vào phần Mềm Finger Break Out có sẵn trên màn hình máy vi tính

8 tháng 5 2017

Đầu tiên ta nháy đúp chuột lên biểu tượng phần mềm Finger Break Out trên màn hình nền. Rồi nhấn phím Enter hoặc nháy vào nút OK để chuyển sang màn hinh làn việc chính của phần mềm. Tiếp đến có thể chọn các mức khó khác nhau của trò chơi tại ô Level. Rồi nháy chọn nút start để bắt đầu luyện gõ.

9 tháng 10 2020

GIẢI HỘ MK NHA

10 tháng 10 2020

const fi='nto.inp';

fo='nto.out';

var f1,f2:text;

n,i,kt,j:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=2 to n do

begin

kt:=0;

for j:=2 to i-1 do

if i mod j=0 then kt:=1;

if kt=0 then write(f2,i:4);

end;

close(f1);

close(f2);

end.

4 tháng 4 2018

Program Nhap;
Uses Crt;
Var N: Integer;
Begin
Repeat
writeln('Nhap N:'); Readln(N);
until N=-1;
write('CT ket thuc');
readln
End.

18 tháng 4 2020

Me too :))

18 tháng 4 2020

Hùng Nguyễn Vậy hả

23 tháng 12 2021

mik ko bt

uses crt;

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

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

  readln(a[i]);

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

readln;

end.

uses crt;

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

i,n:integer;

begin

clrscr;

readln(n);

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

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

readln;

end.

Xin chào các bạn! Chắc các bạn đều thấy bất tiện khi không thể Copy-Paste trong Pascal phải không? Mình sẽ hướng dẫn các bạn thủ thuật này: Để thực hiện việc Copy-Paste trong Pascal bạn cần 1 ứng dụng trung gian. Nó sẽ giúp bạn tạo ra 1 file .PAS Mình xin giới thiệu phần mềm Sublime Text( các bạn tải ở link sau: http://www.sublimetext.com) Sau khi hoàn tất việc tải về, các bạn chạy file vừa tải và làm theo...
Đọc tiếp

Xin chào các bạn!

Chắc các bạn đều thấy bất tiện khi không thể Copy-Paste trong Pascal phải không?

Mình sẽ hướng dẫn các bạn thủ thuật này:

Để thực hiện việc Copy-Paste trong Pascal bạn cần 1 ứng dụng trung gian. Nó sẽ giúp bạn tạo ra 1 file .PAS

Mình xin giới thiệu phần mềm Sublime Text( các bạn tải ở link sau: http://www.sublimetext.com)

Sau khi hoàn tất việc tải về, các bạn chạy file vừa tải và làm theo hướng dẫn bằng Tiếng Anh để cài đặt

Sau khi cài đặt, các bạn mở phần mềm Sublime Text ra. Sau đó các bạn vào File -> New file. Sau đó các bạn Copy-Paste đoạn chương trình đã có vào trong Sublime Text. Sau đó các bạn vào File -> Save, phần mềm sẽ mở 1 cửa sổ để các bạn lưu lại, các bạn lưu vào đường dẫn: C:\DOSBox\TP\BIN (thư mục chứa các file Pascal đã lưu) Lưu ý: Các bạn nhớ lưu file có đuôi là .PAS nhé!

Cuối cùng các bạn mở Pascal, vào File -> Open và chọn file vừa lưu. Vậy là các bạn đã thành công rồi. Giờ chỉ việc chạy chương trình thôi!

2
9 tháng 7 2019

Bạn nào thấy hữu ích thì tick cho mình nhé!

9 tháng 7 2019

bạn nào thấy hay thì tick cho mình nhé!