1. Определите значение переменной e после выполнения данного алгоритма:
f := 100
e := 25
f := 2f+50
e := f–150–e2
В ответе укажите одно целое число — значение переменной e.
2. Определите значение переменной e после выполнения данного алгоритма:
f := 21
e := 10
f := 5f+5
e := f–10–e5
В ответе укажите одно целое число — значение переменной e.
3. Определите значение переменной a после выполнения данного алгоритма:
a := 3
b := 7
b := 9+ab
a := b/5a
В ответе укажите одно целое число — значение переменной a.
4. Определите значение переменной a после выполнения данного алгоритма:
a := 7
с := 3
с := 3 + a * с
a := с / 3 * a
В ответе укажите одно целое число — значение переменной a.
5. Определите значение переменной a после выполнения данного алгоритма:
a := 4
b := 8+2a
a := b/2a
В ответе укажите одно целое число — значение переменной a.
6. Определите значение переменной b после выполнения алгоритма:
a := 1
b := 4
a := 2a+3b
b := a/2b
В ответе укажите одно целое число — значение переменной b.
7. Определите значение переменной a после выполнения алгоритма:
a := 4
b := 9
b := 6 b – a
a := b / 5 * 3 – a
В ответе укажите одно целое число — значение переменной a.
8. Определите значение переменной b после выполнения алгоритма:
a := 4
b := 15
a := b-a3
b := 24/a4
В ответе укажите одно целое число — значение переменной b.

9. Определите значение переменной а после исполнения данного алгоритма.
a := 12
b := 8 + a / 2
a := a – b / 2
В ответе укажите одно число — значение переменной а.
10. Определите значение переменной а после выполнения данного алгоритма:
a := 2
b := 6
b := 12+ab
a := b/4a
В ответе укажите одно целое число – значение переменной а.

👇

Открыть все ответы

Ответ:

invation

29.06.2020

На Паскале:

program Program1;
var i, j, n, k: integer;
var result: real;
var array1: array [1..255] of real;
begin
     result := 0;
     write('Введите значение N (не более 255): ');
     readln(n);
     for i := 1 to n do
         begin
          write('Введите значение ', i, ' элемента массива: ');
          readln(array1[i]);
         end;
         begin
          writeln('Массив, размером - ', n, ' элементов(а):');
          for i := 1 to n do write(array1[i], ' ');
   writeln;
         end;
     for i:=1 to n do
         begin
          k := 0;
          for j:=1 to n do
          if array1[i] = array1[j] then k := k + 1;
          if k = 1 then result := result + array1[i];
         end;
     writeln('Сумма уникальных элементов массива = ', result);
end.

4,6(2 оценок)

Ответ: