На паскале должно выглядеть так:
Начало программы, ввод данных.
<...>
if (y>=x*x) and (y<=5) and ((y>=x+5) or (x>=0)) then write('принадлежит') else write('не принадлежит');
end.
Var i,x,a,b,c,d,count:integer;
begin
count:=0;
for i:=1000 to 9999 do begin
a:=i div 1000;
b:=(i div 100) mod 10;
c:=(i mod 100) div 10;
d:=i mod 10;
if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then
if (a>b) and (b>c) and (c>d) then begin
count:=count+1;
write(i,' ');
end;
end;
writeln;
writeln('Количество: ',count);
<span>end.</span>
Данные это то что у тебя есть то что ты знаешь а информация это то что ты узнаешь что то новое для себя
1)Хз 2)Информатика 3)123456 4)любая фотка 5)любая песня(аудио файлы) 6)гладкий , жесткий 7)соленый,сладкий 8)вонючий,приятный,ароматный
Audi; BMW; Volkswagen; Datsun; KIA