1) Точность вычисления в программе не задается. Указано только количество цифр дробной части (3), которое требуется вывести на экран.
var x,y,a:real;
begin
write('x = ');
readln(x);
write('y = ');
readln(y);
if x*x-x-4>=0 then
begin
a:=((x*y)/(x+y))/(1+sqrt(x*x-x-4));
writeln('a = ',a:5:3);
end
else writeln('Корень из отрицательного числа');
end.
2)
var a,b,c,d:real;
begin
writeln('Введите a, b, c, d:');
readln(a,b,c,d);
if (a=d)
then if (c=b) then writeln('Бесконечно много решений')
else writeln('Решения нет')
else writeln('x = ',(c-b)/(a-d));
end.
Пример:
<span>Введите a, b, c, d:
2 1 4 3
x = -3</span>
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
1)
begin
var a:=ArrRandom(11,5,45).Println;
var x:= a.where(t -> t.IsEven).sum;
Writeln('Сумма четных элементов: ', x);
end.
2)
begin
var a:= ArrGen(5, t -> ReadReal).Println;
a:= a.Select(t ->t/3).ToArray.Println;
end.
program
zadagha_1;
var
a:
array[1..8] of integer;
i,sum:integer;
begin
writeln('vvedite
8 chisel');
for i:=1 to
8 do read(a[i]);
sum:=0;
for i:=1 to
8 do begin
if i mod 2
<> 0 then begin
sum:=sum+a[i];
writeln(a[i]);
end;
end;
writeln();
writeln('summa
elementov c nechetnim N =', sum);
end.
program
zadagha_2;
var
b:
array[1..1000] of integer;
i,a,n:integer;
begin
writeln('vvedite
chislo - kolichestvo elementov massiva');
readln(n);
for i:=1 to
n do begin
b[i]:=random(1000);
write(b[i]:6);
end;
writeln();
writeln('vvedite
chislo');
readln(a);
write
('elementi > dannogo chisla: ');
for i:=1 to
n do begin
if
b[i]>a then write (i:4);
end;
end.
program
zadacha_3;
var
a:
array[1..100] of integer;
i,n,k:
integer;
begin
n:=random(100);
for i:=1 to
n do begin
a[i]:=random(1000)-500;
write(a[i]:6);
end;
writeln();
writeln('vvedite
chislo');
readln(k);
writeln('v
massive chisly ',k, ' kratni: ');
for i:=1 to
n do begin
if (a[i] mod k = 0) and (a[i]>0) then begin
write(a[i]:6);
end;
end;
end.
С помошью <em>шифрования</em><em> </em><u>можно</u><u> </u><u>огроничить</u><u> </u><u>доступ</u><u> </u><u>постороним</u><u> </u><u>лицам</u><u> </u><u>и</u><u> </u><u>не</u><u> </u><u>кто</u><u> </u><u>не</u><u> </u><u>узнает</u><u> </u><u>содержания</u>