Program Massiv; uses crt; var a: array[0..9] of integer; i: integer; begin clrscr; for i:=0 to 9 do begin a[i]:=sqr(i+1); writeln('a[',i,']=',a[i]); end; Readln; end.
Скажем поступок,где Карлсон воровал плюшки,высоко безнравственен.Воровать вообще не хорошо,но с точки зрения детской литературы-это выглядит даже более чем забавно.Ведь Малыш своему другу Карлсону,что его заперла злая домоуправительница,и не дает вкусняшки,поэтому,со стороны автора,это выглядит как маленькая хитрость.Карлсон как верный друг просто не мог оставить малыша в такой детской беде и конечно же ему Ведь Карлсон зная что в соседней комнате лежат плюшки,мог сам из тихонько сьесть,но опять проявил свою любовь и заботу к малышу и поделился с ним.Считаю что это выглядит как маленькая месть-хитрость,и учит нас тому,что друзей в жизни надо иметь как можно больше.
program name; var i,n,x,summa,count:integer; nechet:boolean; begin Writeln('Vvedite n: '); readln(n);//получаем n summa:=0; count:=0; i:=1; if(n mod 2 = 1) then nechet := true else nechet := false; //проверяем четное число или нет while i<n do begin//пока число меньше n if(nechet) then//если число нечентное begin summa:=summa+i*i*i;//прибавляем к сумме куб этого числа end else//если число четное begin summa:=summa+i*i;//прибавляем квадрат числа end; i:=i+1;//прибавляем число на 1 end; writeln(' summa: ', summa);//выводим сумму readln(); end.
uses
crt;
var
a: array[0..9] of integer;
i: integer;
begin
clrscr;
for i:=0 to 9 do
begin
a[i]:=sqr(i+1);
writeln('a[',i,']=',a[i]);
end;
Readln;
end.