Question

giúp mình với

câu 1

cho biết dấu * được in ra màn hình mây lân qua dòng lệnh sau

for i := 3 to 9 do writeln(*)

câu 2

2 số a và b được gọi là ước cuả nhau khi a chia hết cho b ( hoặc b chia hết cho a ) viết chương trình nhập 2 số nguyên a và b cho biết chúng có là ước của nhau hay không

Answer 1

Câu 1:

Số lần dấu '*' được in ra màn hình là:

(9-3)+1=6+1=7(lần)

Vậy: 7 là số lần dấu '*' được in ra màn hình

Câu 2:

uses crt;
var a,b,kt:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
kt:=0;
if a mod b=0 then kt:=1;
if b mod a=0 then kt:=1;
if kt=0 then writeln(a,' va ',b,' khong la uoc cua nhau')
else writeln(a,' va ',b,' la uoc cua nhau');
readln;
end.

Answer 2

Copy nó phải khác hihi!!!

≠Khác:

Câu 1: Số lần dấu '*' được in ra màn hình là:

(9-3)+1=6+1=7(lần)

Vậy: 7 là số lần dấu '*' được in ra màn hình

Câu 2:

uses crt;
var a,b,kt:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
kt:=0;
if a mod b=0 then kt:=1;
if b mod a=0 then kt:=1;
if kt=0 then writeln(a,' va ',b,' khong la uoc cua nhau')
else writeln(a,' va ',b,' la uoc cua nhau');
readln;
end.