1) Задача - ученик - доска
2) Давление - врач - пациент
3) Музыкальный трэк - пользователь - сайт
4) Фильм - зритель - телевизор
5) Ученик - Слушатели - Музыкальный фрагмент
В 5 возможно и гитара, так как она звучит, а значит производит информацию, но без ученика гитара не может звучать, значит у неё нету той информации.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var n:=ReadInteger('n=');
var b:=ArrRandom(n,10,99); b.Println;
Swap(b[1],b[n-2]); b.Println;
b:=b.Sorted.ToArray; b.Println
end.
<u><em>Тестовое решение</em></u>
n= 15
74 23 76 50 79 79 38 74 21 33 45 10 35 58 48
74 58 76 50 79 79 38 74 21 33 45 10 35 23 48
10 21 23 33 35 38 45 48 50 58 74 74 76 79 79
Электронная таблица отличается от текстового редактора тем, что в ней используются различные формулы и макросы, которые вставляются в ячейки и делают таблицу работоспособной, т.е. вычисляемой. А в текстовом редакторе в основном печатаются тексты. Хотя здесь тоже можно вставлять таблицы, но они не такие мобильные.
Program n1;
var x,y: real;
begin
readln(x);
if x>10 then y:=x*x*x+3
else y:=-5;
writeln(y);
end.
Делалось из рассчета что 4 записывается 4 единицами и тп
<span>Для N = 3500 и М = 5 будет выбрано 216 чисел</span>
const
symbols_count = 7;
symbols: array[1..symbols_count] of integer = (1000, 500, 100, 50, 10, 5, 1);
var
num, n, m, c, i, j, res: integer;
begin
readln(n, m);
for i := 1 to n do
begin
num := i;
c := 0;
for j := 1 to symbols_count do
if num >= symbols[j] then
begin
c := c + num div symbols[j];
num := num mod symbols[j];
end;
if c = m then begin
{writeln(i);}
res := res + 1;
end;
end;
writeln(res);
end.
