uses crt;

var x:real;

begin

clrscr;

repeat

  write('Nhap diem:'); readln(x);

until (0<=x) and (x<=10) and ((frac(x)=25) or (frac(x)=5) or (frac(x)=75) or (frac(x)=0));

writeln(x:4:2);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

if ((n>10) and (n<70))

{

t=0;

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

if (i%2==0) t=t+i;

cout<<t;

}

else cout<<"Nhap lai";

return 0;

}

lỗi r bn

uses crt;

var n:real;

begin

clrscr;

repeat

readln(n);

if (n<1) or (n>10) then writeln('Hay nhap lai');

until (1<=n) and (n<=10);

readln;

end.

marks = []

line = input("Hãy nhập các điểm kiểm tra cách nhau bởi dấu cách: ")

marks = [float(x) for x in line.split()]

total = 0

min_mark = marks[0]

max_mark = marks[0]

for m in marks:

    total += m

    if min_mark > m:

        min_mark = m

    if max_mark < m:

        max_mark = m

#a) Thông báo điểm đầu tiên và điểm cuối cùng trong danh sách.

print("Điểm trung bình: ", total / len(marks))

print("Điểm cao nhất: ", max_mark)

print("Điểm thấp nhất: ", min_mark)

print("Điểm đầu tiên: ", marks[0])

print("Điểm cuối cùng: ", marks[-1])

#b)Cho phép người dùng tra cứu đầu điểm thứ n với quy ước n bắt đầu từ 1 ứng với điểm đầu tiên, nếu n lớn hơn tổng số đầu điềm hoặc nhỏ hơn 1, cần thông báo không hợp lệ và yêu cầu người dùng nhập lại.

while True:

    try:

        n = int(input("Nhập n để tra cứu điểm đầu tiên thứ n (n bắt đầu từ 1): "))

        if n < 1 or n > len(marks):

            print("Số n không hợp lệ. Vui lòng nhập lại.")

            continue

        print("Điểm đầu tiên thứ", n, "là:", marks[n - 1])

        break

    except ValueError:

        print("Số n không hợp lệ. Vui lòng nhập lại.")

program TimBoi4ChuSo;
var
  n, i: integer;
begin
  repeat
    writeln('Nhap vao so nguyen n (2<n<100): ');
    readln(n);
  until (n > 2) and (n < 100);
  
  writeln('Cac boi cua ', n, ' co 4 chu so la: ');
  for i := 1000 to 9999 do
  begin
    if i mod n = 0 then
      writeln(i);
  end;
end.

program MultiplesOfN;
var
  n, i: integer;
begin
  repeat
    write('Nhap vao so nguyen duong n (0<n<100): ');
    readln(n);
  until (n > 0) and (n < 100);

  writeln('Cac boi so cua ', n, ' co 4 chu so la:');

  for i := 1000 to 9999 do
  begin
    if (i mod n = 0) then
    begin
      writeln(i);
    end;
  end;

  readln;
end.

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.

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.

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n;

cin>>n;

if (n>100 && n<1000) cout<<"La so hop le";

else cout<<"Khong la so hop le";

return 0;

}