<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(20,10,100); a.Println;
a.Select(x->x+50).Println
end.
<u>Пример</u>
24 22 31 78 68 99 82 27 83 15 84 71 14 11 14 59 83 80 24 90
74 72 81 128 118 149 132 77 133 65 134 121 64 61 64 109 133 130 74 140
Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :)
program Project1;
var
TotalA, TotalB, SoldA, SoldB : integer;
priceA, priceB, sum: real;
begin
Write(' Введите цену товара "А":');
Readln(priceA);
Write(' Введите количество товара "А" в начале рабочего дня:');
Readln(TotalA);
Write(' Введите количество проданного товара "А":');
Readln(SoldA);
Write(' Введите цену товара "Б":');
Readln(priceB);
Write(' Введите количество товара "Б" в начале рабочего дня:');
Readln(TotalB);
Write(' Введите количество проданного товара "Б":');
Readln(SoldB);
sum:= ((priceA*SoldA)+(priceB*SoldB));
writeln('Выручка от продажи двух товаров за день:', sum:5:2);
readln;
end.
2 файл
6 архиватор
8 меню
11 программист
12 суперкомпьютеры
14 процессор
1 папка
4 диалоговые
5 программа
7 интерфейс
9 вирус
13 контекстное
И вниз..жесткий диск, процессор, оперативная память
Var n : Integer;
Begin
Readln(n);
n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);
Writeln(n);
end.
Ввод: 1234
Вывод: 4231
