<span>char a[100];
puts("Введите строку:");
gets(a);
int count=0;
for(int i=0;i<strlen(a);i++)
{
switch(a[i])
{
case 'а';count++;a[i]='b';break;
case 'b';a[i]='а';break;
}
}
</span>
Var a, b, c, x, y, z: real;
begin
read(a,b,c);
z := sqr(cos(b)) - c * sin(sqr(a) * a);
if z < 0
then
x := -exp(ln(-z) / 3) {т.к. в Pascal нет стандартного кубического корня, то приходится использовать искусственное возведение в степень}
else
x := exp(ln(z) / 3);
y := ln(abs(sin(a - b) / (sin(4 * c) / cos(4 * c))));
writeln('x = ', x, ', y = ', y);
<span>end.
--------------
var x, y, z: real;
begin
read(x, y);
if sqr(x) > abs(4 * x * y)
then
z := ln(abs(x + y));
if sqr(x) < abs(4 * x * y)
then
z := sin(1 /(x * y)) / cos(1 /(x * y));
if sqr(x) = abs(4 * x * y)
then
z := exp(x * y + sqrt(sin(x)));
writeln('y = ', sqr(sin(z)));
<span>end.</span></span>
ДЕСЯТИЧНЫЙ КОД
Х Y
5 5
5 40
25 40
25 5
20 30
10 5
5 5
Получается что-то типа флажка.....
Program x;
var a, i, b:integer;
Begin
a:=10;
b:=0;
for i:=1 to 10 do begin
if (a mod 2)=1 then b:=b+a;
a:=a+1;
end;
write(b);
End.
Ответ:
-системное ПО
-служебное ПО
-функциональные ПО
-информационное ПО
...........................
Состав прикладного программного обеспечения.
.....................
.....................
системы автоматизированного проектирования,
экспертные системы и
программы обслуживания магнитных дисков.
А так же программы восстановления системы.
Программное прикладное обеспечение это комплекс прикладных программ, с помощью которых выполняются задания (производственные, творческие, развлекательные либо учебные).