<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
Writeln(ReadReal('a=')*4,' - периметр')
end.
<u>Пример</u>
a= 12.7
50.8 - периметр
<span>Свойства комьпютера: Версия виндоус, система, сведения об активации, оборудование, быстродействие и т.д., Мои документы: тип, размещение, размер, размещение конечной папки....Рабочий стол: заставка, темы, оформление, цветовые схемы, разрешение... Др. обьектов: в основном размещение и размер, дата последнего изменения.</span>
//Pascal ABC.NET v3.1 сборка 1172
Var
i:integer;
begin
for i:=1 to 10 do
writeln('*');
end.
Короткий ответ:
1 Га = 100 Ар.
1 Ар = 0,01 Га.
З км. кв. = 30 000 Ар.
1 Ар = 0,003333 км. кв.
Подробнее.
Ар - единица измерения площади земли, условно равная 10 метров ширины на 10 метров длины = 10 м, х 10 м, = 100 м. кв.
Гектар - площадь земли, условно равная 100 м х 100 метров = 10 000 м. кв,
Ар - это ОДНА СОТАЯ Гектара.
1 Га = 100 Ар = 10 000 м. кв : 100 м. кв. = 100 Ар.
1 Ар = 0,01 Га.
1 километр = 1 000 метров.
1 км. кв. = 1 000 м х 1 000 м. = 1 000 000 м. кв.
3 км. кв = 3 000 000 м. кв.
3 000 000 м. кв. : 100 м. кв ( 1 ар ). = 30 000 ар
1 Ар = 100 : 30 000 = 0,003333 км. кв.
Http://ix.io/12nN
-- вот код
Просто бежим по числу, получая новую цифру с помощью остатка от деления на 10 и отбрасывая её с помощью целочисленного деления на 10. Количество цифр сохраняем в массив. Когда мы посчитали одну цифру два раза, выходим из цикла.
