Вывести 15 первых чисел так, чтобы каждое последующее было в 2 раза больше предыдущего. Есть пример кода, но нужно сделать его с ПОСТУСЛОВИЕМ. если можно - то со схемой, не понял немного что такое постусловие program d; var i, a:Integer; begin a:=1; for i:=1 to 20 do begin a:=a*2; writeln(a); end; end.

Популярные вопросы в разделе