Bài 2:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

if (i mod 3=0) and (i mod 5=0) then t:=t+i;

writeln(t);

readln;

end.

Dưới đây là một số bộ dữ liệu kiểm thử đề tìm lỗi cho chương trình tính n!:

Số nguyên dương: n = 5 Kết quả mong đợi: 5! = 120

Số nguyên âm: n = -3 Kết quả mong đợi: Lỗi - Số nguyên dương được yêu cầu

Số 0: n = 0 Kết quả mong đợi: Lỗi - Số nguyên dương được yêu cầu

Số nguyên lớn: n = 10 Kết quả mong đợi: 10! = 3628800

Số chẵn: n = 6 Kết quả mong đợi: 6! = 720

Số lẻ: n = 7 Kết quả mong đợi: 7! = 5040

Số nguyên tối đa: n = 12 Kết quả mong đợi: 12! = 479001600

Số nguyên tối thiểu: n = 1 Kết quả mong đợi: 1! = 1

Số nguyên dương lớn nhất: n = 999 Kết quả mong đợi: Kết quả chưa đúng do số quá lớn vượt quá giới hạn của kiểu dữ liệu int

Số nhập không phải số nguyên: n = "abc" Kết quả mong đợi: Lỗi - Số nguyên dương được yêu cầu

Những bộ dữ liệu này giúp kiểm thử chương trình với các trường hợp đặc biệt và tiềm ẩn lỗi, như số âm, số 0, số nguyên tối đa, số nhập không phải số nguyên, giúp đảm bảo tính đúng đắn và hoạt động ổn định của chương trình tính n!.

tham khảo!

Câu 1:

var i,n:integer;

s:longint;

begin

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

for i:=1 to n do

s:=s+2*i+1;

write('tong la: ',s);

readln

end.

Câu 2

Bài 5:

Var b:array:[1..1000] of integer;

i,n,max:integer;

Begin

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(b[i]);

End;

Write('Cac phan tu am la: ');

For i:=1 to n dko

if b[i]<0 then write(b[i]:8);

writeln;

max:=b[1];

For i:=2 to n do

If b[i] > max then max:=b[i];

write('So lon nhat la ',max);

Readln

End.

pascal nha bạn:

Program so_nguyen_chan;

uses crt;

var n,i:integer;

begin

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

For i:=1 to n do

If i mod 2 = 0 then writeln('Cac so chan nho hon n la: ',i);

readln

end.

có in bao gồm cả số nữa lại nữa không hay chỉ nhỏ hơn n

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

if i mod 2 = 1 then s:=s+i;

readln;

end.

Cau 1:

Câu 2:

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n>0 && n%5==0) cout<<"Phai";

else cout<<"Khong phai";

}

python

n = int(input("Nhập số nguyên dương N: "))
found = False

for i in range(1, n//2+1):
    sum = i
    j = i + 1
    while sum < n:
        sum += j
        j += 1
    if sum == n:
        found = True
        start = i
        end = j - 1
        break

if found:
    print(n, "có tổng của nhiều số nguyên dương liên tiếp:")
    for k in range(start, end+1):
        print(k, end=" ")
else:
    print(n, "không có tổng của nhiều số nguyên dương liên tiếp.")

bạn hỏi khó thế, đây mới là phần cho lớp 8 thôi mà

1. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do write(i:3);

readln;

end.

2. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(i mod 2 = 0) then write(i:3);

readln;

end.

1. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do write(i:3);

readln;

end.

2. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(i mod 2 = 0) then write(i:3);

readln;

end.

1.

program InDaySoTuNhien;
var n, i: integer;
begin
   write('Nhap so nguyen duong n: ');
   readln(n);

   writeln('Day so tu 1 den ', n, ' la:');
   for i := 1 to n do
      write(i, ' ');
end.

2.

program InSoChan;
var
   n, i: integer;
begin
   write('Nhap so nguyen n: ');
   readln(n);

   writeln('Cac so nguyen chan trong khoang tu 1 den ', n, ' la:');
   for i := 1 to n do
   begin
      if i mod 2 = 0 then
         write(i, ' ');
   end;
end.

#include <bits/stdc++.h>

using namespace std;

long n,i,dem,t;

int main()

{

cin>>n;

dem=0;

t=0;

for (i=1; i<=n;i++)

if (n%i==0) 

{

dem++;

t=t+i;

}

cout<<dem<<" "<<t;

return 0;

}