90Лилиана11111
28.02.2021 20:06

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

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
yaritos
29.03.2020 00:51
1. Для цикла For есть решение выложенное выше  от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
  writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
  until i> n div 2;
  writeln('наибольший делитель ', n, ' = ', k);
end.
0,0(0 оценок)
Ответ:
Ikramhaus221
08.05.2021 14:45
1. Для цикла For

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  for i := 1 to N do
    p:=p*x;
  writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  while i<=n do begin
    p:=p*x;
    i:=i+1;
  end;
  writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  repeat
    p:=p*x;
    i:=i+1;
  until i>n;
  writeln(x,' в степени ',n,' равно ',p );
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота