Question

Viết chương trình pascal nhập vào hai số tự nhiên x,y sao cho chương trình chỉ cho nhập các số tự nhiên x,y thỏa mãn 4<=x<10 và 30<y<=200

- in ra màn hình các số lẻ chia hết cho 3 trong khoảng từ x đến y và đếm có bao nhiêu số như vậy/

- in ra màn hình các số chính phương m sao cho x<m<y và đếm có bao nhiê số m.

Answer 1

var i,x,y,n,m:byte; begin read(x,y); for i:=x to y do begin if (i mod 3=0) and (i mod 2=1) then begin inc(n); writeln(i); end; if round(sqrt(i))=sqrt(i) then inc(m); end; writeln('Co ',n,' so le chia het cho 3.'); for i:=x to y do if round(sqrt(i))=sqrt(i) then writeln(i); writeln('Co ',m,' so chinh phuong.') end.

Answer 2

máy mình lỗi nên ko cách dòng được bạn cách dùm mình nha