uses crt; var a, b, c, n, i, j :integer; s :array [1..10000] of integer; begin clrscr; writeln ('Vvedite razmer masiva'); read (n); writeln ('Vvedite chislo X'); read (a); for i:=1 to n do begin writeln ('Vvedit s[', i, '] element'); read (s[i]); end; for i:=1 to n do for j:=1 to n-1 do if s[j]<s[j+1] then begin b:=s[j]; s[j]:=s[j+1]; s[j+1]:=b; end; for i:=1 to n do begin write (s[i], ' '); if s[i]=a then inc (c); end; writeln; if c>0 then writeln ('3adanoe chislo prisytstvyet') else writeln('3adanoe chislo otsytstvyet'); end.
Это что, метод решения показать ?!Ч.Я. (с точки зрения физики) - метод исследования таких систем, когда вместо свойств и взаимосвязей составных частей системы, изучается реакция системы, как целого, на изменяющиеся условия! Что за чем: 1 - анализ условия задачи и определение основных теоретических данных необходимых для исследования (т.е. определений, законов) 2 - выбор приборов для исследования 3 - сборка электрической цепи 4 - определение параметров цепи по показаниям приборов 5 - анализ полученных данных 6 - общий вывод 7 - сверка полученного результата с заданным конструктором решением 8 - анализ ошибочных действий исследователем (если они допущены) Ч.Я. компьютер - это система, в которой внешнему наблюдателю доступны лишь входные и выходные величины, а структура и внутренние процессы неизвестны ))
program iksiki;
var x,y:real;
begin
writeln('x?');
readln(x);
if abs(x)<3 then y:=(x-2*x)/(x*x-1)
else if abs(x)>=9 then y:=sqrt(x*x-1)-sqrt(x*x+5)
else y:=sqrt(x*x+1)/sqrt(x*x+5);
write('y=',y);
end.
{Немного вложенных ифов и готово, и немного того, что в паскале нет оператора возведения в степень}