1)Перевести 30, 29, 28, … , 10 м в сантиметры
2)Вычислить х*у, используя лишь операцию сложения
3)Рассчитайте плотность популяции белок за 1, 2, 3, …, 12 лет, если их первоначальная численность составила 552 особи на 1400 км2, ежегодный прирост составляет 20%
pascal abc

1

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

2014-04-15T12:31:44+00:00
1)
var i: integer;
begin
for I:=30 downto 10 do writeln(I,' метров= ',I*100,'сантиметров')
end.
2)
var x,y,p,i: integer;
begin
write('x= ');
readln(x);
write('y= ');
readln (y);
p:=0;
for I:=1 to y do P:=p+x;
writeln (x,' * ',y,' = ',p);
end.
3)