М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
рот40
рот40
11.09.2020 23:26 •  Информатика

Определите значение переменной а после выполнения данного алгоритма:
a:= 3
b:= 7
b:= 9 + a * b
a:= b / 5 * a
В ответе укажите одно целое число – значение переменной а.
Б) Определите, что будет напечатано в результате работы следующей программы.
алг вычислить
нач цел s, k
s:= 9
нц для k от 3 до 7
s:= s + 9
кц
вывод s
кон
В) У исполнителя Квадратор две команды, которым присвоены номера:
1. раздели на 2
2. вычти 3
Первая из них уменьшает число на экране в 2 раза, вторая уменьшает его на 3. Исполнитель работает только с натуральными числами. Составьте алгоритм получения из числа 41 числа 4, содержащий не более 5 команд. В ответе запишите только номера команд.

👇
Ответ:
TastyDonut
TastyDonut
11.09.2020
1)b:=30
a:=18
3) 21211
2) не знаю
4,5(36 оценок)
Открыть все ответы
Ответ:
Eldarval
Eldarval
11.09.2020
По порядку: 
Programm z_1; слово программа на английском пишется с 1 m правильно: program z_1;
1) Beigin; правильно Begin и без точки с запятой
2)p=0;  оператор присвоения пишется не просто равно, а := правильно: "p:=0;"
3)i=1; см. 2пункт
4)write i > 15 to beigin; write - это оператор вывода, полагаю тут надо цикл while, условие лучше писать  в скобках, не to, а do и beigin см. пункт 1 правильно: while (i > 15) do begin
5)i=i+2; см. пункт 2
6) while ('произведение нечётных чисел от 1 до 15 =',р); тут полагаю нужен оператор вывода write, так же в скобках там буква Р русская, а надо P (пэ) английскую. правильно: write ('произведение нечётных чисел от 1 до 15 =',p); 
7) End. в конце цикла пишут end; 
8) в конце программы ставят End.

Откорректированный код:

Program z_1
Var i,p : integer;
Begin
p:=0;
i:=1;
while (i > 15) do begin
p:=p*i;
i:=i+2;
  end;
write('произведение нечётных чисел от 1 до 15 =',p);

End.
4,8(54 оценок)
Ответ:
vika220305
vika220305
11.09.2020

Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.

1) цикл for

program p_for

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  p := 1;//начальное значение

  for i := 1 to n do  

     p := p * i;

  writeln(p);

end.  

2) цикл while

program p_while

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  i := 1;

  p := 1;//начальное значение

  while i <= n do  

  begin

     p := p * i;

     i := i + 1;

 end;

 writeln(p);

end.  

3) цикл until

program p_until

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  i := 1;

  p := 1;//начальное значение

  repeat

     p := p * i;

     i := i + 1;

  until i > n;

  writeln(p);

end.  

Объяснение:

4,8(34 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ