Цитата:
Сообщение от Тетрадь
Да, Паскаль ABS
|
Тьфу, чтоб ему провалиться! Только ABC, а не ABS. Ладно, вот так можно оформить вторую:
Код:
var
a,i:Integer;
Procedure DVD(R,q:Integer);
begin
if (R mod q)=0 then
begin
if q=1 then write(q) else write (q,', ');
end;
end;
Begin
write('a = ');
readln(a);
for i:=a downto 1 do DVD(a,i);
writeln;
readln
End.
И да, если это АВС, то вроде Readln в конце программ можно не ставить. Впрочем, тут не уверен - проверьте.