Kros228volk225
04.04.2020 14:58

1) определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s: =0;
k: =0;
while k < 30 do begin
k: =k+3;
s: =s+k;
end;
write(s);
end.
2) при каком наибольшем введенном числе d после выполнения программы будет напечатано 150?
var n, s, d: integer;
begin
readln(d);
n : = 3;
s : = 38;
while s < = 1200 do begin
s : = s + d;
n : = n + 7
end;
write(n)
end.
3) исполнитель редактор получает на вход строку цифр и преобразовывает её. редактор может выполнять две команды, в обеих командах v и w обозначают цепочки цифр.
заменить (v, w)
нашлось (v)
дана программа для исполнителя редактор:
начало
пока нашлось (222) или нашлось (888)
если нашлось (222)
то заменить (222, 8)
иначе заменить (888, 2)
конец если
конец пока
конец
какая строка получится в результате применения ниже программы к строке, со-стоящей из 193 идущих подряд цифр 8? в ответе запишите полученную строку.
решить по данному примеру:
1) из программы видно, что начальные значения переменных s и n равны соответственно 33 и 1
2) цикл заканчивается, когда нарушается условие s > 0, то есть количество шагов цикла определяется изменением переменной s
3) после окончания цикла выводится значение переменной n
4) таким образом, сводится к тому, чтобы определить число шагов цикла, необходимое для того, чтобы значение s стало меньше или равно 0
5) с каждым шагом цикла значение s уменьшается на 7, а значение n увеличивается в 3 раза, так что n=3k, где k – это число шагов цикла
6) поскольку s уменьшается на 7, конечное значение s должно быть равно 33-7*k , причём первое значение, меньшее или равное 0, достигается при k=5 (и s=33–7*5=-2)
7) тогда n=3k=35=243
8) ответ: 243.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Naruto7xokage
27.11.2021 09:13
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив A ***');
  var a:=MatrRandom(10,10,0,20);
  a.Println(3); Writeln(3*a.ColCount*'-');
  var b:=a.Rows.Select(row->row.Sum).ToArray;
  Writeln('*** Массив B ***'); b.Println
end.

Пример
*** Исходный массив A ***
  9 15  8 17 18 10 17 15 19 18
 18  0 10  5 20  2 16  3 20 17
  1 11  3  8  4 19 14 10 15 13
  4  2 14 11  4 13 10  2  5  3
  8  5 16 19  1  9 14 16 18 10
  2 14 13 19 19 18 11 20 12 20
 16  7  0  6 13 16  7 20  1  7
 12 14 18 16  9 16 16  5  7 16
  4 19 12  5 10 11  9 16 12  6
  1 10 10  6  7  0  5 10  5  5

*** Массив B ***
146 111 98 68 116 148 93 129 104 59
0,0(0 оценок)
Ответ:
scfsdfddPenis
16.01.2022 10:06
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var s:=a.IndexesOf(x->x mod 10=0);
  if s.Count=0 then Writeln('Нет элементов, оканчивающихся на 0')
  else begin
    Write('Номера элементов, оканчивающихся на 0: ');
    s.Select(i->i+1).Println
    end
end.

Примеры
n= 12
-41 46 29 -13 -43 -21 48 43 41 -48 -19 -44
Нет элементов, оканчивающихся на 0

n= 16
37 -48 39 32 -6 21 -48 34 6 12 -10 -15 40 -36 46 26
Номера элементов, оканчивающихся на 0: 11 13
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота