begin readln(str); //str := 'Day 10, mice 8: "Year" 7 is a mistake 91.'; foreach c: char in str do if (Char.IsDigit(c)) then num += c; for j: byte := 1 to length(num) - 2 do for i: byte := 1 to length(num) - 1 do if (num[i] < num[i + 1]) then begin str[1] := num[i]; num[i] := num[i + 1]; num[i + 1] := str[1]; end; if (Integer.Parse(num) > 0) then begin while (num[num.Length - 1] = '0') do num.Remove(num.Length - 1); writeln('Да' + #13 + num); end else writeln('Нет'); end.
Какой оператор цикла желательно использовать, если известно число повторений тела цикла?
repeat <оператор1, …>until <условие>
while <условие>do <оператор>
for <параметр>:= <начальное значение>to<конечное значение> do<оператор>
2. Используется оператор for i:= -10 to 10 do…
После завершения выполнения тела цикла i = 10
3. Цикл в фрагменте программы
p:=1;
repeat
p:=p*0.1
until p>0.1;
будет исполнен:
1 раз
2 раза
бесконечное число раз
0 раз
3 раза
4. Цикл в фрагменте программы
a:=1;
b:=1;
while a+b<8 do
begin
a:=a+1; b:=b+2
end;
выполнится:
0 раз
3 раза
2 раза
1 раз
бесконечное число раз
5. Какой оператор цикла желательно использовать для записи алгоритмической конструкции, изображённой на схеме?
НЕТ СХЕМЫ. ОТВЕТИТЬ НА ВОПРОС НЕВОЗМОЖНО.
while <условие> do <оператор>
for <параметр>:= <начальное значение> to <конечное значение> do <оператор>
repeat <оператор1, …> until <условие>
6. Какой оператор цикла желательно использовать, если известно условие выхода из цикла?
repeat <оператор1, …> until <условие>
for <параметр>:= <начальное значение> to <конечное значение> do <оператор>
while <условие> do <оператор>
7. Определите, какое значение будет выведено на экран в результате выполнения приведенной ниже последовательности операторов:
a:=1; b:=1;
while a<=32 do a:=a*2; b:=b*a; //Обратите внимание! Нет begin end.
write (b)
32
256
64
128
8. Используется оператор for i:= -5 to 9 do…
При первом выполнении тела цикла i = -5
9. Чему равно значение переменной s после выполнения следующего фрагмента программы
Фрагмента программы нет! Задание решить нельзя!
str, num: string;
begin
readln(str); //str := 'Day 10, mice 8: "Year" 7 is a mistake 91.';
foreach c: char in str do
if (Char.IsDigit(c)) then
num += c;
for j: byte := 1 to length(num) - 2 do
for i: byte := 1 to length(num) - 1 do
if (num[i] < num[i + 1]) then
begin
str[1] := num[i];
num[i] := num[i + 1];
num[i + 1] := str[1];
end;
if (Integer.Parse(num) > 0) then
begin
while (num[num.Length - 1] = '0') do
num.Remove(num.Length - 1);
writeln('Да' + #13 + num);
end
else
writeln('Нет');
end.