uses crt;

var n,t,i,t1:integer;

begin

clrscr;

write('nhap n='); readln(n);

if (n>0) and (n<=50) then

begin

t:=0;

t1:=0;

for i:=1 to n do

begin

if i mod 2=1 then t:=t+i;

if (i mod 3=0) or (i mod 5=0) then t1:=t1+i;

end;

writeln('tong cac so le trong khoang tu 1 toi ',n,' la: ',t);

writeln('tong cac so chia het cho 3 hoac 5 trong khoang tu 1 toi ',n,' la: ',t1);

end

else writeln('vui long nhap lai');

readln;

end.

Cảm ơn ạ 😉

B

m mod 100 < 10 => loại A,B,D

=> C đúng

Cảm ơn bạn nhé

uses crt;
var x,y :int64;
begin
clrscr;
write('nhap gia tri cua x: ');
readln(x);
write('nhap gia tri cua y: ');
readln(y);
if (x>= y ) then write('S = ', x+y)
else write ('S = ', x-y);
readln;
end.

đề bài yêu cầu j vậy bạn

*Ý nghĩa

-Dạng thiếu: Điều kiện sẽ được tính và kiểm tra. Nếu điều kiện đúng thì câu lệnh được thực hiện, nếu điều kiện sai thì câu lệnh sẽ bị bỏ qua.

-Dạng đủ: Điều kiện sẽ được tính và kiểm tra. Nếu điều kiện đúng thì thực hiện câu lệnh 1, ngược lại thì thực hiện câu lệnh 2.

*Cấu trúc

-Dạng thiếu: if <điều kiện> then <câu lệnh>;

-Dạng đủ: if <điều kiện> then <câu lệnh 1>

else <câu lệnh 2>;

*So sánh:

-Giống nhau: đều cùng là câu lệnh rẽ nhánh và khi gặp một điều kiện nào đó thì chọn lựa thực hiện thao tác thích hợp.

-Khác nhau: Trong câu lệnh if-then dạng thiếu, nếu điều kiện không đúng thì thoát khỏi cấu trúc rẽ nhánh, thực hiện câu lệnh tiếp theo của chương trình, còn trong câu if-then dạng đủ, nếu điều kiện không đúng thì thực hiện công việc 2, sau đó mói thoát khỏi cấu trúc rẽ nhánh, thực hiện câu lệnh tiếp theo cùa chương trình.

dạ cảm ơn ạ

Số lượng phần tử chia hết cho 3: 2

Tổng các phần tử chia hết cho 3 là 21+3=24