Tin học Pascal 11

[minhmai2002]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1, Viết CT nhập 2 số nguyên dương $a \leq b$. Tính tổng những số chẵn và không chia hết cho 5 thuộc [a,b]. (1 CT=while-do, 1 CT= for-do)
2, Viết CT nhập 2 số nguyên dương x<y. Đếm những số lẻ hoặc chia hết cho 3 thuộc (x,y).

 

[Trâm Nguyễn Thị Ngọc]

Cho em hỏi tí, thuôcj [a,b] và (x,y) là trong khoảng từ a đến b và từ x đến y ạ

1, Viết CT nhập 2 số nguyên dương $a \leq b$. Tính tổng những số chẵn và không chia hết cho 5 thuộc [a,b]. (1 CT=while-do, 1 CT= for-do)
2, Viết CT nhập 2 số nguyên dương x<y. Đếm những số lẻ hoặc chia hết cho 3 thuộc (x,y).

 

[ka1412]

1/

uses crt;
var a,b,i,j:integer;
begin
    write('Nhap a:');readln(a);
    write('Nhap b:');readln(b);
    writeln('for -to do');
    for i:=a to b do
    if (i mod 2=0) and (i mod 5 <>0) then j:=j+i;
    writeln(j);
    j := 0;
    writeln('while-do');
    i := a;
    while i<=b do
    begin
    if (i mod 2=0) and (i mod 5 <>0) then j:=j+i;
    inc(i);
    end;
    write(j);
    readln
end.

2/

uses crt;
var x,y,i,j:integer;
begin
    write('Nhap x:');readln(x);
    write('Nhap y:');readln(y);
    for i:=x+1 to y-1 do
    if (i mod 2<>0) or (i mod 3=0) then inc(j);
    write(j);
    readln
end.

 

[Trâm Nguyễn Thị Ngọc]

1, Viết CT nhập 2 số nguyên dương $a \leq b$. Tính tổng những số chẵn và không chia hết cho 5 thuộc [a,b]. (1 CT=while-do, 1 CT= for-do)
2, Viết CT nhập 2 số nguyên dương x<y. Đếm những số lẻ hoặc chia hết cho 3 thuộc (x,y).

Vậy thì em làm theo cách em hiểu nha.
Bài 1:
C1:sử dung for do

Var
 a,b,t,i:integer;
Begin
 readln(a);readln(b);
 t:=0;
 For i:=a to b do
   if (i mod 2=0) and (i mod 5<>0) then t:=t+i;
 write('tong cac so chan thuoc [',a,',',b,'] la:',t);
 readln
End.

C2:sử dụng while do

Var
 a,b,t,i:integer;
Begin
 readln(a);readln(b);
 t:=0;i:=a;
 While i<=b do
  begin
   if if (i mod 2=0) and (i mod 5<>0) then t:=t+i;
   i:=i+1;
  end;
 write('tong cac so chan thuoc [',a,',',b,'] la:',t);
 readln
End.

Bài 2:

Var
 x,y,i,d:integer;
Begin
 readln(x);readln(y);
 For i:=x to y do
  if (i mod 2<>0) and (i mod 3=0) then d:=d+1;
 write('cac so le chia het cho 3 tu',a,'den',b,'la:',d);
readln
End.