Var
x, y: real;
begin
write('Введите x: ');
readln(x);
if x <= -6 then y:=1-x
else if x <= -4 then y:=x/4
else y:=x;
writeln('y = ', y:4:2);
end.<span>
</span>
И да и Нет, т.к не содержит достаточное колличество данных. Но нотная запись может быть преобразованна в алогоритм музыкантом. Он сам может определить в какой такт времени каким пальцем какой рукой что делать...
Возможно
1)Задача решается с помощью дерева(его нарисовать надо)
Пушкин
Тютчев Некрасов
Некрасов Тютчев
2 варианта
2)задача методом перечислений
первый у нас Пушкин, значит первый во всех вариантах
ПТН ПНТ
2 варианта
Я так понимаю намера билетов надо вывести в случайном порядке?
Пусть надо вывести в случайном порядке номера 100 билетов
program RND;
var a:array[1..100]of integer;
i.j,f:integer;
begin
randomize;
i:=1;
white i<101 do begin
f:=0;
A[i]:=int(random(100));
for j:=1 to i do if A[j]=A[i] then f:=1;
if f=0 then i:=i+1;
end;
for i:=1 to 100 do writeln(A[i]);
end.
1. 20*40=800
2.800*64=51200 символов
Была у нас такая задача в 6-м классе)