Держи
//FIXED
var
a:array[1..10000] of integer;
i,m,n,fl, tmp : integer;
Begin
Writeln('Введите кол-во элементов в массиве');
Readln(n);
Writeln('Введите элеметы массива: ');
for i:= 1 to n do
Read(a[i]);
m:=n;
repeat
fl:= m; m:= 0;
for i:=1 to fl-1 do
if a[i+1] < a[i] then
begin
m:=i;
tmp:=a[i];
a[i]:=a[i+1];
a[i+1]:=tmp;
end;
until m=0;
for i:= 1 to n do
Write(a[i], ' ');
end
Fortif-типо токого,как то так
Ответ:
0.4375Мб(448Кб)
Объяснение:
56*64*128-всего символов(1 символ=байт)=> 56*64*128/1024*1024=
в мб
56*64*128/1024*1024=448Кб=0,4375Мб
#include <iostream>
int main()
{
int
days,
sale;
float sum = 0.0f;
std::cout << "Введите количество дней, скидку, сумму(в долларах): ";
std::cin >> days >> sale >> sum;
sale /= 100;
for(int i = 0; i < days; i++)
{
sum += 3; // прибавляем 3$
sum += sum * sale; //прибавляем процент от суммы
}
std::cout << "Итоговая прибыль равна = " << sum << std::endl;
}
<em><u>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</u></em>
<em><u>// Внимание! Если программа не работает, обновите версию!</u></em>
begin
var sogl:='бвгджзйклмнпрстфхцчшщ';
var s:=readlnString('>').ToLower;
s.Where(c->Pos(c,sogl)>0).Distinct.Sorted.Println;
end.
<u>Пример</u>
> А роЗА УПалА На АПУ аЗора
злнпр