program Task;
var x: real;
begin
// Задание a
readln(x);
writeln(abs(x * x + (x + 2.5) / (3 * x)) - 3 * sqrt(sin(2 * x) - 2 / (1-x)));
// Задание b
readln(x);
writeln(5 * sqrt((2 * x) - 3.5) / (8 * x * x) + exp(x + 2) * cos(3 * x));
// Задание c
readln(x);
writeln((abs(5 * x - 6)) / (sqrt(x * x - 3 + 2.4)) - 3 * Ln(2 / (5 * x)))
end.
Var h,b,k,p,d:real;
begin
write('Введите В, К, П:');
readln(b,k,p);
writeln(' H','Д':8);
h:=2;
repeat
d:=100*h/(100-b)/(100-k)/p;
writeln(h:1:1,d:10:3);
h:=h+0.1
until h>4.0001 {Вообще-то здесь ровно 4 надо написать, но у меня тогда значение 4 не просчитывается, хотя должно бы}
<span>end.</span>
=CЧЁТЕСЛИ() и в условии пишешь нужно условие.
1) Компьютер приобретёт элементы интеллектуальности.
2) Общение с ним максимально будет приближено к человеческому языку.
3) Метод обработки информации у будущих компьютеров, как в природе, станет аналоговым, и не как сейчас, цифровым.
4) Виртуальность приобретёт реальные черты, предметы станут ощутимыми, человеческим органам чувств.
Program p1;
var
x, y: integer;
begin
Write('Введите x: ');
readln(x);
y:=sqr(x)+3;
writeln('y=' + y);
end.