program tin_hoc_de_dang;
uses crt;
Var A:array[1..100] Of integer;
n,i,,s,k:integer;
BEGIN
clrscr;
write('nhap n'); Readln(n);
write('nhap k'); Readln(k);
s:=0
For i:=1 to n do
Begin
readln(A[i]);
If A[i] mod k=0 then s:=s+1;
End;
Writeln('Co ', s,' so chia het cho ',k);
readln
end.
Viết chương trình con nhập vào 1 dãy số bất kì
Yếu cầu + Đưa dãy số đó ra màn hình
+Tính tổng các phàn tử trong dãy
+Xắp xếp dãy đã cho theo chiều tăng dần
+ Đưa ra màn hình phần tử co giá trị max .
MONG MỌI NGƯỜI GIÚP VỚI Ạ ( MAI KIỂM TRA HỌC KÌ :(((( )
Cho màng A gồm N phần tử thuộc kiểu nguyên dương (N<500)? Viết chương trình thực hiện tính tổng các số chia hết cho 3 hoặc cho 5, phải viết và sử dụng các chương trình con sau trong chương trình:
a)
Thủ tục nhập giá trị cho màng A từ bản phim.
b) Hàm kiểm tra số chia hết cho 3 hoặc 5.
Viết chương trình sử dụng thủ tục kiểm tra 1 số nguyên dương nhập vào từ bàn phím có phải là số nguyên tố hay không
Viết chương trình nhập từ bàn phím số nguyên dương n (n>=2). Hãy sử dụng hàm trên đếm xem từ 1 đến n có bao nhiêu số có dạng 3k+5
Viết chương trình tìm giá trị nhỏ nhất trong dãy A gồm N số nguyên (N không quá 100), nhập từ bàn phím (yêu cầu: sử dụng hàm tìm số nhỏ nhất trong 2 số x và y) Dùng pascal ạ mn giúp mình với!!!
viết CT nhập vào 1 mảng số nguyên n phần tử (n<=100). hãy xuất mảng vừa nhập.
viết CT con nhập vào 1 mảng số nguyên n phần tử (n<=100). hãy xuất mảng vừa nhập
Trong python,nhập vào toạ độ 3 điểm (trong mặt phẳng).Kiểm tra xem 3 điểm đó có tạo thành 3 đỉnh của tam giác ko
Viết chương trình nhập vào 3 số nguyên. Tính tổng của số thứ nhất và thứ hai, tính tích của số thứ ba. (trên Pascal)