Bài 2. Làm quen với chương trình và ngôn ngữ lập trình

Nguyễn Thị Trang
Xem chi tiết
38 Lương Thanh Tú 6/9
Xem chi tiết
Nguyễn Việt Dũng
26 tháng 10 2023 lúc 13:28

A. Bài viết hướng dẫn phòng tránh dịch bệnh trên trang web của cơ quan y tế

Bình luận (0)
Nguyễn Văn Tiến Dũng
Xem chi tiết
Phía sau một cô gái
13 tháng 8 2023 lúc 8:49

program KiemTraSoSieuNguyenTo;

uses crt;

function IsPrime(num: integer): boolean;

var

   i: integer;

begin

   if num < 2 then

      IsPrime := false

   else

   begin

      IsPrime := true;

      for i := 2 to trunc(sqrt(num)) do

      begin

         if num mod i = 0 then

         begin

            IsPrime := false;

            break;

         end;

      end;

   end;

end;

function IsSuperPrime(num: integer): boolean;

var

   i, temp: integer;

begin

   IsSuperPrime := true;

   while num > 0 do

   begin

      if not IsPrime(num) then

      begin

         IsSuperPrime := false;

         break;

      end;

      temp := num mod 10;

      num := num div 10;

   end;

end;

var

   n: integer;

   inputFile, outputFile: text;

begin

   assign(inputFile, 'SNT.INP');

   assign(outputFile, 'SNT.OUT');

   reset(inputFile);

   rewrite(outputFile);

   readln(inputFile, n);

   if IsSuperPrime(n) then

      writeln(outputFile, 1)

   else

      writeln(outputFile, 0);

   close(inputFile);

   close(outputFile);

end.

Bình luận (1)
Nguyễn Hoàng Duy
14 tháng 8 2023 lúc 6:42

const fi='SNT.INP'
   fo='SNT.OUT'
var n:qword;
function isPrimeNumber(n:qword):byte;
var i:longint;
begin
   if n<2 then exit(0);
   for i:=2 to trunc(sqrt(n))do
      if n mod i=0 then exit(0);
   exit(1);
end;
function isSuperPrimeNumber(n:qword):byte;
begin
   while n<>0 do
      begin
         if isPrimeNumber(n)=0 then exit(0);
         n:=n div 10;
      end;
   exit(1);
end;
begin
   assign(input,fi);reset(input);
   assign(output,fo);rewrite(output);
      readln(n);
      write(isSuperPrimeNumber(n));
   close(output);
   close(input);
end.

 

Bình luận (0)
vuong nam duong
Xem chi tiết
Kiều Vũ Linh
8 tháng 5 2023 lúc 11:19

begin

write('Chao cac ban! Ten toi la...');

Readln

End.

Bình luận (0)
GiaBao S5609H
8 tháng 5 2023 lúc 9:38

hay viet chuong trimh dua ra ngoai man hinh dong thong bao "Chao cac ban! Ten toi la..." (sử dụng ngôn ngữ pascal): 
program hello;
begin
writeln('Chào các bạn! Tên tôi là...');
readln;
end.

Bình luận (0)
trần đăng khoa
Xem chi tiết
tài cu
Xem chi tiết
Phương_52_7-23 Uyên
26 tháng 12 2022 lúc 18:54

Tham khảo

-Tên trong chương trình dùng phân biệt và nhận biết các đại lượng khác .

-

- Tên khác nhau

-Tên không trùng từ khóa

-Ngắn gọn, dễ nhớ, dễ hiểu

-Không được dùng số khi đặt tên.

Bình luận (0)
trần đăng khoa
26 tháng 4 2023 lúc 8:42

nhập giá trị cho một dãy số gồm n phần tử(n nhập từ bàn phím).hãy tính và in ra màn hình giá trị trung bình của dãy số

 

Bình luận (0)
Phạm Moi
Xem chi tiết
Kiều Vũ Linh
16 tháng 11 2022 lúc 11:20

Begin

Write('Ket qua cua 2 - 1 + 4 la ',2-1+4);

Readln;

End.

Bình luận (0)
kakashi
Xem chi tiết
Kiều Vũ Linh
10 tháng 11 2022 lúc 21:13

Var a,cv,s:real;

Begin

Write('Canh hinh vuong a = ');readln(a);

cv:=4*a;

S:=a*a;

Write('Chu vi la ',cv:10:2,' dien tich la ',s:10:2);

Readln;

End.

Bình luận (0)
Gia Han Truong
Xem chi tiết
ha huyen
Xem chi tiết