Var a:array[1..15] of integer;
i,s:integer;
Begin
For i:=1 to 15 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
End;
Write('Cac so vua nhap la ');
For i:=1 to 15 do write(a[i],' ');
Writeln;
For i:=1 to 15 do
If a[i] mod 5 = 0 then s:=s+a[i];
Write('Tong cac so chia het cho 5 la ',s);
Readln;
End.
Viết chương trình nhập vào 1 mảng số nguyên có n phần tử. Tìm phần tử lớn nhất trong mảng và vi trí của phần tử lớn nhất đó
Viết chương trình nhập vào 3 số nguyên dương a, b, c. Xuất ra màn hình tổng và tích của 3 số đó.
Viết chương trình nhập vào 3 số nguyên dương a, b, c. Xuất ra màn hình tổng và tích của 3 số đó.
nhập vòa số nguyên n viết chương trình in ra màn hình tổng các ước của n
viết chương trình nhập vào hai số nguyên và in ra màn hình số đảo của hai số đó. sử dụng câu lệnh điều kiện
1Cho số nguyên dương N ,đếm số cách phân tích N thành tổng hai số nguyên tố .
2 Viết chương trình nhập vào số nguyên dương N.
a) Xuất ra màn hình N có phải là số nguyên tố đối xứng hay không.
b) Thông báo ra màn hình số nguyên tố đối xứng nhỏ nhất lớn hơn N.
mong các bạn giúp mình với ạ.
viết chương trình nhập vào số nguyên dương N.Kiểm tra và in ra màn số N là số chẵn hay lẽ
Giả sử cần viết chương trình nhập một số tự nhiên vào máy tính và in ra màn hình kết quả số đã nhập chẵn hay lẻ, chẳng hạn “5 là số lẻ”, “8 là số chẵn”. Hãy mô tả các bước của thuật toán để giải quyết bài toán trên và viết chương trình Pascal để thực hiện thuật toán đó.
Viết chương trình nhập vào một số tự nhiên từ 2 đến 8 và in ra màn hình thứ tương ứng với số đã nhập
Viết chương trình kiểm tra một số nguyên a có phải là số chia hết cho 5 không. Nếu chia hết in ra "CO", ngược lại in ra "KHONG". Biến a được nhập từ bàn phím:
Cíu mình với :(
