uses crt;
var a:array[1..100]of real;
n,i,t:integer;
begin
clrscr;
write('Nhap so hoc sinh='); readln(n);
for i:=1 to n do
begin
repeat
write('Nhap diem hoc ki mon Tin cho hoc sinh thu ',i,'='); readln(a[i]);
until (0<=a[i]) and (a[i]<=10);
end;
for i:=1 to n do
writeln('Diem cua hoc sinh thu ',i,'=',a[i]:4:2);
readln;
end.
Viết chương trình điểm kiểm tra cho môn toán của 35học sinh và in ra màn hình với số học sinh và điểm kiểm tra nhập từ bàn phím (sử dụng kiểu mảng)
kiểm tra xem các số trong phạm vi từ 1đến N có số nào bằng X hay không với X nhập từ bàn phím.
em cần luôn ạ
Viết chương trình nhập vào số n với N nhập từ bàn phím. Kiểm tra số N là số dương hay âm
nhập vào 2 số từ bàn phím kiểm tra xem tích 2 số đó có chia hết cho 5 hoặc 8 hay không?
giúp mik vs nha
viết chương trình nhập n số nguyên từ bàn phím , nhập giá trị cho từng phần tử từ 1 đến N, đếm các số chẵn và tính tổng các số lẻ, hiện kết quả ra màn hình Giúp mik với ạ
Viết CT nhập vào một phân số, kiểm tra xem phân số đó có tối giản hay ko ?
Ai bt thì làm ơn giúp nha <3 <3
Bài 1: Viết chương trình tính n! ( n! = 1.2.3.4...n )
Bài 2: Viết chương trình nhập vào mảng gồm n phần tử là số nguyên dương, in ra mảng vừa nhập. Kiểm tra và in ra màn hình các phần tử là số chẵn.
MN GIÚP MÌNH VỚI MAI PHẢI NỘP BÀI RỒI HUHU T_T
viết chương trình nhập A từ bàn phím, tìm n nhỏ nhất để S=10+11+12+13+...+n sao cho S>=A( một chương trình sử dụng lệnh while...do và một chương trình sử dụng for...to...do)
Giusp mik nha, chìu kiểm tra rồi, cảm ơn trước nhá
Câu 1: Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số. Độ dài của dãy cũng được nhập từ bàn phím
CT mẫu:
uses crt;
var n,i:integer;
a:array[1..100] of integer;
Begin
clrscr;
write('nhap so phan tu cua day:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
writeln('day so da nhap:');
for i:=1 to n do write(a[i]:2);
readln;
end.
giúp mình với mình cảm ơn trước
