program sample;
{$APPTYPE CONSOLE}
uses
SysUtils;
var i,n,j,ch:word;
begin
readln(n);
i:=0;
while (i<n) do
begin
inc(i);
ch:=0;
j:=0;
while (j<i) do
begin
inc(j);
ch:=ch+i;
end;
writeln(ch);
end;
readln;
end.
Прога в Delphi
Составить программу, печатающую квадраты всех натуральных чисел от 0 до заданного натурального n, испильзуя лишь сложение и вычитание, причем общее число действий должно быть порядка n. По возможности напишите программу полностью плизз!!!
я так понял, что sqr использовать нельзя, глянь может подойдет:
на оптимальность не претендую. ну если нельзя еще и inc использовать, то напиши i:=i+1 и j:=j+1.
Код:
на оптимальность не претендую. ну если нельзя еще и inc использовать, то напиши i:=i+1 и j:=j+1.