Помогите пожалуйста составить программу на языке Pascal с while! Составить программу, которая подсчитывает средний рост 5 учащихся.

1

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

2013-04-19T15:19:42+04:00

i:=1; 
while i < 11 do 
begin 
writeln(i); 
inc(i); 
end; 

i:=1; 
while i < 11 do 
begin 
writeln(i,' ', i*i, ' ', i*i*i); // можно поменять на pow(i,3) 
inc(i); 
end; 

i:=10; 
while i < 21 do 
begin 
if i mod 2 = 0 then // либо if i and 1 = 0 then 
writeln(i); 
inc(i); 
end;