Những câu hỏi liên quan
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
13 tháng 8 2018 lúc 4:36

Đáp án B

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
28 tháng 4 2017 lúc 8:11

Đáp án A

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
5 tháng 9 2018 lúc 10:00

Đáp án C

Bình luận (0)
Nguyen Minh Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 12 2021 lúc 11:52

Chọn B

Bình luận (0)
Anthea2148
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 11 2021 lúc 23:29

Câu 3: 

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Bình luận (0)
Lê Xuân Hoa
Xem chi tiết
Nguyễn Hoàng Duy
30 tháng 3 2023 lúc 21:30

program SumOfNumbers;

uses crt;

var
  n, i, sum: integer;
  numbers: array[1..100] of integer;

begin
  clrscr;
  write('Enter n: ');
  readln(n);

  // Tạo mảng các số tự nhiên từ 1 đến n
  for i := 1 to n do
    numbers[i] := i;

  // Tính tổng các số tự nhiên từ 1 đến n
  sum := 0;
  for i := 1 to n do
    sum := sum + numbers[i];

  writeln('The sum of the first ', n, ' natural numbers is: ', sum);
  readln;
end.

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
18 tháng 10 2017 lúc 7:24

Bình luận (0)
KhảTâm
9 tháng 12 2020 lúc 20:35

program chia_het;

uses crt;

var a,b:integer;

begin

writeln('Nhap so thu nhat');readln(a);

writeln('Nhap so thu hai');readln(b);

If (a mod b = 0) then writeln('chia het') else writeln('chia khong het');

readln

end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
24 tháng 2 2017 lúc 13:19

Bình luận (0)
Triển Hoàng Đình
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 8 2021 lúc 23:34

uses crt;

var a:integer;

begin

clrscr;

readln(a);

if (a mod 3=0) or (a mod 5=0) then write('co')

else writeln('khong');

readln;

end.

Bình luận (0)