Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Контрольное задание №17-2 / 17-2 / zadanie_2
.pas program Zadanie_2;
var
X:word;
i,j:byte;
begin
write ('‚ўҐ¤ЁвҐ зЁб«® •: ');
readln (X);
if X mod 3<>0 then write ('—Ёб«® Ґ ©¤Ґ®') else
begin
for i:=1 to 9 do if i=x/3 then write (i);
for i:=1 to 9 do
for j:=1 to 9 do if i*j=x/3 then write (' ',i,j);
end;
readln;
end.
var
X:word;
i,j:byte;
begin
write ('‚ўҐ¤ЁвҐ зЁб«® •: ');
readln (X);
if X mod 3<>0 then write ('—Ёб«® Ґ ©¤Ґ®') else
begin
for i:=1 to 9 do if i=x/3 then write (i);
for i:=1 to 9 do
for j:=1 to 9 do if i*j=x/3 then write (' ',i,j);
end;
readln;
end.