Базовая эталонная модель OSI является концептуальной основой, определяющей характеристики и средства открытых систем. Она определяет взаимодействие открытых систем, обеспечивающее работу в одной сети систем, вьшускаемых различными производителями, и координирует:• взаимодействие прикладных процессов;• формы представления данных;• единообразное хранение данных;• управление сетевыми ресурсами;• безопасность данных и защиту информации;<span>• диагностику программ и технических средств.</span>
Uses crt;
var a,b,c,x1,x2,x,D:real;
begin
writeln('Введите коэффициенты уравнения');
writeln;
write('a= ');
readln(a);
write('b= ');
readln(b);
write('c= ');
readln(c);
D:=b*b-4*a*c;
if D<0 then
writeln('Корней нет')
else
begin
if D=0 then
x:=-b/(2*a);
writeln ('x= ',x);
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln ('x1= ',x1);
writeln ('x2= ',x2);
end;
end;
end.
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),1,200); a.Println;
Writeln('Ср.арифметическое кратных 3: ',
a.Where(t->t mod 3=0).DefaultIfEmpty.Average)
end.
<u>Пример</u>
n= 15
185 103 5 33 116 167 189 36 79 110 188 12 26 11 10
Ср.арифметическое кратных 3: 67.5
1) 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J
2) 3*10 в 4(степени) + 2*10 в 3 + 4*10 во 2 + 7*10 в 1 + 8*10 в 0 + 3* 10 в -1 + 8*10 в -2 = 3*10000 + 2*1000 +4*100 + 7*10 + 8*1 + 0,3 + 0,08 = 32478,38
Ответ:
42 (число 11), 99 (число 30), 10050 (число 55)
Объяснение:
Написал код по этому алгоритму и посмотрел, какие из представленных чисел получаются в итоге.
DECLARE
b NUMBER;
c NUMBER;
d NUMBER;
e NUMBER;
BEGIN
FOR a IN 10..99 LOOP
IF length(a) = 2 THEN
b := power(substr(a, 1, 1),2); -- отрезаем первый разряд и возводим в квадрат
c := power(substr(a, 2, 1),2); -- отрезаем второй разряд и возводим в квадрат
d := b + c;
e := power(substr(a, 1, 1) + substr(a, 2, 1),2);
IF d > e THEN dbms_output.put_line(d || e);
ELSE dbms_output.put_line(e || d);
END IF;
END IF;
END LOOP;
END;
