дана программа

21.02.2010, 14:31. **Показов** 679. **Ответов** 2

Author24 — интернет-сервис помощи студентам

дана программа

Pascal

function kv(a:integer):word;
begin
 kv:= a*a;
end;
function kb(a:integer):integer;
begin
 kb:= a*a*a;
end;
var
 n:integer;
 a:array[1..100] of integer;
 i:integer;
begin
 readln(n);
 for i:= 1 to n do begin
   a[i]:= random(20);
   write(a[i],' ');
   write(' kvadrat = ',kv(a[i]));
   write(' kub = ',kb(a[i]));
   writeln;
 end;
end.

нужно ее сделать так чтобы она работала только без команды function!
я знаю что ее можно сделать ее без команды function .... Написать две функции но как их написать???
спасибо!!!

@Puporev · 21.02.2010, 14:46

Pascal

begin
readln(n);
for i:= 1 to n do 
a[i]:= random(20);
for i:= 1 to n do 
writeln(a[i],'  kvadrat = ',sqr(a[i]),'  kub = ',sqr(a[i])*a[i]);
readln
end.

@Inadequate · 21.02.2010, 14:53

@wolf@, слушай ты или совсем тупой или я уже не знаю что и думать. Ты сначала вдумайся в тот бред что ты пишешь, а потом подумай ст0ит ли снова регаться на форуме. Тебе уже писали что и как в твоих предыдущих темах. Ты решил поприкалываться? Тогда лови...

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	21.02.2010, 14:53	3
	@wolf@, слушай ты или совсем тупой или я уже не знаю что и думать. Ты сначала вдумайся в тот бред что ты пишешь, а потом подумай ст0ит ли снова регаться на форуме. Тебе уже писали что и как в твоих предыдущих темах. Ты решил поприкалываться? Тогда лови... 0