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.
Ответы
Var
C:array[0..9] of byte;
A:longint;
i:byte;
Begin
For i:= 0 to 9 do
C[i]:=0;
Repeat
Write('Введите натуральное число: ');ReadLn(A);
Until A>0;
i:=Trunc(Ln(A)/Ln(10));
if frac(Ln(A)/Ln(10)) > 0 then i:=i+1;
For i:= 1 to i do
Begin
C[A mod 10]:=C[A mod 10] +1;
A:=A div 10
End;
For i:= 0 to 9 do
if C[i]>1 then A:=1;
if A = 1 then
Begin
Write('Повторяются: ');
For i:= 0 to 9 do
if C[i] > 1 then
Write(i,' ')
End
End.
Пример работы программы:
Введите натуральное число: 131350788
Повторяются: 1 3 8
C:array[0..9] of byte;
A:longint;
i:byte;
Begin
For i:= 0 to 9 do
C[i]:=0;
Repeat
Write('Введите натуральное число: ');ReadLn(A);
Until A>0;
i:=Trunc(Ln(A)/Ln(10));
if frac(Ln(A)/Ln(10)) > 0 then i:=i+1;
For i:= 1 to i do
Begin
C[A mod 10]:=C[A mod 10] +1;
A:=A div 10
End;
For i:= 0 to 9 do
if C[i]>1 then A:=1;
if A = 1 then
Begin
Write('Повторяются: ');
For i:= 0 to 9 do
if C[i] > 1 then
Write(i,' ')
End
End.
Пример работы программы:
Введите натуральное число: 131350788
Повторяются: 1 3 8
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Перевести 2500 бит в байты. ответ расписать подробно *
Автор: denisrogachv
Разместите на слайде 1 картину и 1 фигуру на фигуре напишите её название
Автор: kseniay2006548
Склавиатуры вводится строка. подсчитать и вывести среднее арифметическое цифр в строке. pascal abc
Автор: borisova-valeriya
N = 13;
Var
A:array[1..N] of integer;
i,k:integer;
Begin
Randomize;
k:=0;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i] < 0 then
Begin
k:=k+1;
A[i]:=2
End;
End;
WriteLn;
WriteLn('Количество отрицательных элементов: ',k);
Write('Новый массив:');
For i:= 1 to N do
Write(' ',A[i])
End.
Пример работы программы:
Исходный массив: -1 -9 7 -2 -5 -3 -1 6 3 -6 9 8 -10
Количество отрицательных элементов: 8
Новый массив: 2 2 7 2 2 2 2 6 3 2 9 8 2