1)Перевести 30, 29, 28, … , 10 м в сантиметры
5-9 класс
|
2)Вычислить х*у, используя лишь операцию сложения
3)Рассчитайте плотность популяции белок за 1, 2, 3, …, 12 лет, если их первоначальная численность составила 552 особи на 1400 км2, ежегодный прирост составляет 20%
pascal abc
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)
Другие вопросы из категории
for i:=1 to n-1 do
begin imax:=i;
for j:=i+1 to n do if a[j]>a[imax] then imax:=j;
x:=a[i];
a[i]:=a[imax];
a [imax]:=x
отображаемых цветов, равным 16 777 216
Читайте также
потоку: а)20 10 30 15 б)30 20 15 10 в)15 10 30 20
1100000,1100100,1011110
и из 10 в 2
95,60,72,42.срочно
а) 25 белых, 25 красных, 25 синих и 25 зеленых шариков.
б)30 белых, 30 красных, 30 синих и 10 зеленых шариков.