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.

19 tháng 6 2019

.

Thông báo về việc mở cuộc thi Tin Học lần 2-hè năm 2020 Được sự đồng ý của thầy Phynit, mình xin được tổ chức cuộc thi Tin Học lần 2-hè năm 2020 nhằm tạo thêm một sân chơi thật bổ ích trong trang -Đối tượng tham gia: là các bạn học sinh từ lớp 8 trở lên có hiểu biết về ngôn ngữ lập trình Pascal(các bạn 6-7 cũng có thể tham gia nếu có hiểu biết về Pascal) -Thể lệ và luật thi: +Mỗi bài thi sẽ...
Đọc tiếp

Thông báo về việc mở cuộc thi Tin Học lần 2-hè năm 2020

Được sự đồng ý của thầy Phynit, mình xin được tổ chức cuộc thi Tin Học lần 2-hè năm 2020 nhằm tạo thêm một sân chơi thật bổ ích trong trang

-Đối tượng tham gia: là các bạn học sinh từ lớp 8 trở lên có hiểu biết về ngôn ngữ lập trình Pascal(các bạn 6-7 cũng có thể tham gia nếu có hiểu biết về Pascal)

-Thể lệ và luật thi:

+Mỗi bài thi sẽ có tối đa 20 điểm, trong mỗi vòng thi chỉ được sử dụng 1 tài khoản duy nhất

+Có 2 vòng thi

* Vòng 1: vòng sơ loại, Dự kiến diễn ra từ 8h ngày 7/8/2020 đến 23h59' ngày 13/8/2020-chọn ra 8 bạn có số điểm cao nhất đi tiếp vào vòng 2

* Vòng 2: vòng chung kết, Dự kiến diễn ra từ 8h ngày 15/8/2020 đến 23h59' ngày 21/8/2020-chọn ra 3 bạn có điểm số cao nhất để trao giải

-Nội dung: Đề thi sẽ có 60% cơ bản, 40% nâng cao

-Các bạn nếu không sử dụng file(tệp) ở bất cứ câu hỏi nào sẽ bị trừ 1 điểm ở câu hỏi đó

-Dự kiến: 1 đề ở vòng 1, 1 đề ở vòng 2

-Phần mềm hỗ trợ:

+Free Pascal(Link tải: https://download.com.vn/free-pascal/download)

+Turbo Pascal(Link tải: https://download.com.vn/pascal/download)

-Nộp bài:

+Có thể gửi bài làm bằng cách nhập từ bàn phím

+Có thể gửi từ giấy(1)

+Có thể gửi trực tiếp bài làm bằng chương trình(2)

Yêu cầu đối với trường hợp (1) và (2) là phải chụp rõ hình

-Giải thưởng:

+Giải nhất: 20GP

+Giải nhì: 15GP

+Giải ba: 10GP

Xin chúc tất cả các bạn có một cuộc thi thành công!

0
29 tháng 7 2020

HUYNH NHAT TUONG VY chắc do sửa lại giải thưởng á bạn!

xin lỗi anh, vì có quá nhiều phản ứng trái chiều nên em bỏ giải 500gp rồi

23 tháng 3 2022

1 là bn sửa hình nền

2 là mk gọi admin hoặc giáo viên khác khoá nick bn

23 tháng 3 2022

sửa kiểu j vậy?

uses crt;

var i,n,kt:integer;

begin

clrscr;

readln(n);

kt:=0;

for i=2 to trunc(sqrt(n)) do 

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

if (kt=0) and (n>1) then write('phai')

else write('Khong phai');

readln;

end.

14 tháng 5 2022

Var i,n,souoc:integer;

Begin

While n <= 1 do

Begin

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

End;

For i:=1 to n do

If n mod i = 0 then souoc:=souoc+1;

If souoc = 2 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

25 tháng 2 2023

Vẫn sử dụng được nhưng là những phím tắt khác so với Word,... bạn nhé.

Ví dụ: 

Nhấn nút [HOME] -> chuyển con nháy về đầu dòng

Nhấn nút [END] -> chuyển con nháy về đầu dòng

Nhấn tổ hợp Ctrl + Y -> xóa 1 hàng trên FreePascal

1/Trong các công việc sau, công việc nào không thuộc lĩnh vực Điều khiển, tự động hoá, thiết kế chế tạo?    a     Dùng Turbo Pascal 7.0 viết chương trình giải phương trình bậc hai    b     Hệ thống phần mềm phục vụ giao dịch nhiều người tại phòng bán vé máy bay của hãng Hàng không quốc gia Việt Nam    c     Dùng các phần mềm đồ hoạ để thiết kế nhà cửa    d     Dùng phần mềm VDM của viện chăn nuôi Việt...
Đọc tiếp

1/Trong các công việc sau, công việc nào không thuộc lĩnh vực Điều khiển, tự động hoá, thiết kế chế tạo?

    a     Dùng Turbo Pascal 7.0 viết chương trình giải phương trình bậc hai

    b     Hệ thống phần mềm phục vụ giao dịch nhiều người tại phòng bán vé máy bay của hãng Hàng không quốc gia Việt Nam

    c     Dùng các phần mềm đồ hoạ để thiết kế nhà cửa

    d     Dùng phần mềm VDM của viện chăn nuôi Việt Nam và hệ thống máy tính trong chăn nuôi sữa bò

2/ Trong các công việc sau, công việc nào thuộc lĩnh vực Truyền thông?

    a     Đài truyền hình Hà Nội triển khai truyền hình số qua mặt đất, vệ tinh và cáp quang

    b     Dùng phần mềm Word soạn thảo một văn bản

    c     Chơi trò chơi Liên Minh Huyền Thoại

    d     Giờ học dùng giáo án điện tử

 

1
31 tháng 12 2021

Câu 2: A

15 tháng 10 2016

writeln / write = ra

read =vao

15 tháng 10 2016

 cảm ơn 

16 tháng 3 2023

Program HOC24;

var S,n: integer;

begin

s:=1; n:=0;

while s<10 do

begin

n:=n+2;

s:=s+n;

end;

write('S= ' ,s);

readln

end.

19 tháng 2 2023

Program HOC24;

var i,n,d: integer;

begin

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

write('Cac uoc cua 'n,' la: ');

for i:=1 to n do if i mod n = 0 do then

begin write(i,' '); d:=d+1; end;

writeln;

write('Co ',d,' so la uoc cua ',n);

readln

end.