4 года назад

Написать программу вычисления значения выражения 1) a = (d + c + b)*e - 5k - 1 2) c = |x + 4| - |x2 - 3x + 6|

1 ответ:

0 0

1)var a,b,c,d,e,k : real;
begin
writeln('Введите ,b,c,d,e,k');
read(,b,c,d,e,k);
a:= (d + c + b)*e - 5k - 1
writeln(a);
end;
2)var c,x : real;
begin
writeln('Введите x');
read(x);
c:= abs(x+4) - abs(sqr(x)-3*x+6);
writeln(c);
end.

Читайте также

Система команд исполнителя Вычислитель состоит из двух команд, которым присвоены номера: 1 — вычти 2 2 — умножь на 3. Первая из

nikofed [50]

11-2
9-2
7-2
5*3
15-2

Или
1
1
1
2
1

0 0

4 года назад

Выберите шаблон , позволяющий правильно объединить все файлы имя которых заканчивается буквосочетанием "фы" и имеющих расширение

Ирина А

выберите шаблон , позволяющий правильно объединить все файлы имя которых заканчивается буквосочетанием "фы" и имеющих расширение из двух символов ,в одну группу ?

ответ б)*фы.??

0 0

4 года назад

Function F(n: integer): integer; begin if n < 6 then F:=n + F(n+3)*F(2*n) else F := 2*n; end; begin writeln(F(1)); end.

mihai [39]

F(1) = 1 + F(4) * F(2);

F(4) = 4 + F(7) * F(8) = 4 + 14 * 16 = 228;

F(2) = 2 + F(5) * F(4) = 2 + 325 * 228 = 74102;

F(5) = 5 + F(8) * F(10) = 5 + 16 * 20 = 325;

--------------------------------------------

F(7) = 2 * 7 = 14;

F(8) = 2 * 8 = 16;

F(10) = 2 * 10 = 20;

------------------------

F(1) = 1 + 228 * 74102 = 16895257

0 0

3 года назад

1) Правильно ли определён тип величины?a. количество тетрадей - вещественный типb. кличка собаки - символьный типс. вес контейн

Ксения7721

a нет

b нет

c нет

1строковый тип

2целый тип (INTEGER)

3вещественный тип

3)

1- 30 -46

2- 30 -46 -0.126 15.003

3- 'g'

4- ‘солнце’ '55' 'g'

5- 30 -46

0 0

3 года назад

С клавиатуры вводится число до 1000. Определить какой сотне принадлежит число. Определить чётная или нечётная сумма цифр

NataliNaidenova

Var x, a, b, c, s: integer;
begin
  write('Введите число: '); readln(x);
  a := x div 100;
b := (x div 10) mod 10;
c := x mod 10;

  s := a + b + c;
writeln('Число принадлежит ', a, ' сотне');

  if(s mod 2 = 0) then writeln('Сумма цифр четная')
  else writeln('Сумма цифр нечетная');
end.

a - сотни
b - десятки
с - единицы

Надеюсь я правильно тебя понял.

0 0

3 года назад