1. ((x-1)/sqr(y)-1/x)/(1/y+1/(x+1))
2.
program Schet;
var x,y:real;
begin
write('Введите значение X: ');
readln(x);
if (x+100>0) then begin
y:=(sqr(x)+4)/sqrt(x+100);
writeln('Y = ',y) end
else writeln('При данном значении X выражение не может быть рассчитано!')
end.
3.
program Func;
if x<=0 then y:=4*x else
y:=(sqr(x)+1)/2;
writeln('Y = ',y)
4.
program interval;
var s,x:real;
x:=0;
repeat
s:=2*x*x+1;
writeln('при X = ',x:5:2,' S = ',s:6:2);
x:=x+0.5
until x>10
Все программы написаны на языке ABC Pascal и проверены на функциональность
Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54
Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.
Почему япония - лидер по выплавке стали?
Чему равно: 1*(умножить)х? 0*х?
В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.
