Помогите написать прогр. на языке паскаль .(цикл со счетчиком ) Задача : Найдите и выведите квадрат и куб первых десяти чисел ..Вот что у меня получилось ..Это бред , так прошу помощи
program House2 ;
var N,Kv ,Kub:integer;

begin;

for N:=1 to 10 do Writeln ;

begin writeln ; Kv:= N*N; Kub:= N*N*N ;

end;

Writeln (Kv , Kub ) end.

1

Ответы и объяснения

2013-02-12T21:25:11+04:00

program House2 ;
uses crt;
var N,Kv ,Kub:integer;
begin;
clrscr;
for N:=1 to 10 do begin
writeln;
Kv:= sqr(N);
Kub:= N*N*N ;
Write (Kv,' ', Kub );
end;
end.