Câu 2: DIVIDE35

Nhập vào số nguyên dương n, in ra tổng tất cả các số không vượt quá n mà chia hết cho 3 hoặc 5, nhưng không chia hết cho cả hai số đó.

Dữ liệu vào: Dòng duy nhất chứa số nguyên dương n (3 ≤ n ≤ 10⁹).

Dữ liệu ra: In ra kết quả bài toán.

Ví dụ:

giai giup mik bai nay voi a pscal

Bài 1: Bút chì

            Việt được phân công mua bút chì cho cả lớp nhân dịp đầu năm học mới. Số bút chì cần mua là n. Trong cửa hàng, giá mua lẻ mỗi chiếc bút chì là p. Tuy nhiên Việt là học sinh nên được cửa hàng cho hưởng chính sách ưu đãi đầu năm học mới. Cụ thể là cứ mỗi k chiếc bút chì mà Việt mua được thì cậu ta sẽ được cửa hàng  tặng thêm một chiếc bút chì nữa.

            Yêu cầu: Xác định số tiền ít nhất mà Bờm cần mang theo để có thể mua về ít nhất n chiếc bút chì.

            Dữ liệu vào: Ba số nguyên dương n, k, p

            Dữ liệu ra: Số tiền cần mang theo

Ví dụ:

giup mik voi code pascal

program ocsen;

uses crt;

var gio,phut,giay,x:longint;

begin

clrscr;

write('nhap x:');

readln(x);

gio:=x div 3600;

x:=x mod 3600;

phut:=x div 60;

x:=x mod 60;

write(gio,'gio:',phut,'phut:',x,'giay');

readln;

end.

pascal cho ai can

cac ban cho mik loi khuyen voi

lam cach nao de hoc hieu qua cac ngon ngu lap trinh

program bai1;

uses crt;

var a:array[1..100] of integer;

n,i,s:integer;

begin

write('nhap n:');

readln(n);

for i;=1 to n do

begin

write('a[',i,']=');

readln(a[i]);

end;

s:=0;

for i:=1 to n do

if a[i]>0 then

s:=s+a[i];

write('tong la:',s);

readln;

end.

pascal.

Bài 2: Đổi tiền

Có 4 loại tờ tiền mệnh giá 5000đ, 10000đ, 20000đ và 50000đ. Viết chương trình đổi số tiền N (N là bội số của 5000 và N<10⁹), in ra số tờ tiền từng loại cần lấy sao cho tổng tiền bằng N và số tờ tiền là ít nhất

pascal nha giup mik vs

Cho dãy số nguyên gồm n phần tử a[1], a[2], ..., a[n].

Em hãy lập trình:

a.      Đếm và tính tổng các phần tử dương trong dãy.

b.      Chỉ số của phần tử âm đầu tiên và phần tử dương cuối cùng?

c.      Tìm giá trị lớn nhất trong dãy và vị trí của nó, nếu có nhiều giá trị như vậy thì đưa ra vị trí đầu tiên.

Input:

-         Dòng đầu tiên chứa số nguyên N (1 ≤ N ≤ 100)

-         Dòng thứ 2 chứa N số nguyên A₁, A₂, ..., A_N

Output:

-         Dòng 1 là hai giá trị c và S trong đó c là số lượng số nguyên dương và S là tổng các số nguyên dương trong dãy.

-         Dòng 2 là chỉ số của phần tử âm đầu tiên và phần tử dương cuối cùng trong trường hợp không có thì in ra 0

-         Dòng 3 là giá trị lớn nhất của dãy số và chỉ số của nó.

Ví dụ:

giup lam bai nay voi can gap

Trong ngày lễ Giáng sinh, các bạn nhỏ rất thích quả bóng màu sặc sỡ. Harry Porter muốn chế tạo một số quả bóng ma thuật có màu vàng, xanh lá cây và xanh dương để tặng các bạn.

Biết rằng để tạo ra một quả bóng màu vàng thì cần 2 tinh thể màu vàng, một quả bóng mau xanh lá cây thì cần 1 tinh thể màu vàng và 1 tinh thể màu xanh dương, còn để tạo ra một quả bóng màu xanh dương thì cần 3 tinh thể màu xanh dương.

Ngay bây giờ cậu ta có A tinh thể màu vàng và B tinh thể màu xanh dương.

Hãy cho Harry Porter biết, cậu ta cần có thêm tối thiểu bao nhiêu tinh thể nữa để tạo ra một số quả bóng với màu như mong muốn.

Yêu cầu:

          Input: Dòng đầu tiên chưa A và B, cho biết số tinh thể màu vàng và màu xanh dương mà Harry Porter đang có.

                   Dòng tiếp theo chứa X, Y và Z, tương ứng số lượng quả bóng màu vàng, màu xanh lá cây và màu xanh dương mà Harry Porter muốn chế tạo.

          Với 0<=A<=10⁹, 0<=X, Y,Z<=10⁹

          Output: In ra một số nguyên duy nhất là số lượng tinh thể tối thiểu mà Harry Porter cần có thêm.

Ví dụ:

Giải thích ví dụ:

Ví dụ 1: Harry Porter cần 5 tinh thể màu vàng và 4 tinh thể màu xanh để tạo ra 2 quả bóng màu vàng, 1 quả bóng màu xanh lá và 1 quả bóng màu xanh dương.

Như vậy, Harry Porter cần có thêm 1 tinh thể màu vàng và 1 tinh thể màu xanh dương.

giup voi pascal

a)1,5*6.1023=9.10^23 hay 15n(nguyen tu al)

b)0,5*6,1023=3.10^23 hay 0,5(phan tu h2)

a)1,5*6.1023=9.10^23 hay 15n(nguyen tu al)

b)0,5*6,1023=3.10^23 hay 0,5(phan tu h2)