evaIA24102003
15.09.2020 04:59

1. Відмітьте ознаки циклу Repeat…Untіl. *

Оператори тіла циклу виконуються доти, доки умова істинна

Якщо умова набуває значення True, керування переходить до оператора, що йде безпосередньо за оператором Until <умова>

Оператори тіла циклу виконуються мінімум один раз. Умова починає перевірятися лише після першого проходження циклу

Оператори тіла циклу виконуються доти, доки умова хибна

2. Цикл з післяумовою починається з оператора *

for

repeat

while

begin

Інше:

3. Яке значення набуває змінна А у фрагменті програми:Randomize;A:=random(10). *

випадкове дійсне число від 0,0 включно до 1,0

випадкове ціле число від 0 включно до 10

випадкове ціле число від а до b включно

4. Скільки разів виконається цикл, якщо початкове значення Х=7? Repeat X := X+1 untіl X>10? *

2

4

6

Жодного

5. Визначте, який оператор реалізує дію:Збільшувати значення змінної А на 2 доти, доки А<20 *

Whіle A<20 do A := A+2;

If A < 20 Then A := A+2;

Repeat A := A+2 Untіl A<20;

Repeat A := A+2 Untіl A >= 20.

Інше:

6.Чому дорівнює S після виконання циклу: S := 0; For і := 5 To 7 Do S := S+1? *

4

3

7

5

Інше:

7. Чому дорівнює S після виконання циклу: S := 0; For і := 10 DownТo 6 Do S := S+1? *

4

3

7

5

Інше:

8. В яких із наведених операторів циклу тіло циклу не виконається жодного разу? *

Х:=5; Whіle Х <5 do X := X+1;

Х := 10; Whіle Х <= 10 do X := X+1;

For A := 10 To 0 Do S = S + A;

Repeat A := A+1 Untіl A >= 5;

9. Цикл з лічильником починається з оператора *

while

for

begin

end

10. В операторі циклу з лічильником зміна значень лічильника відбувається *

автоматично

вручну

не змінюється

Інше:

11. Яка властивість надає доступ до рядків? *

Name

Left

Items

ParentColor

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
esketit1
26.02.2020 10:06
Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
  nmb:=0;  s:=0;
  k:=n;  l:=1;
  while k>0 do
  begin
    s:=k mod 10;
    k:=k div 10;
    nmb:=nmb+l*s;
    l:=l*osn;
  end;
  Result:=nmb;
end;
{ конец функции}
begin
  write('число:  ');
  readln(n);
  write('квадрат какого числа:  ');
  readln(m);
  osn:=10;
  while osn>=2 do
  begin
     osn:=osn-1;
    if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
    begin
      writeln('основание системы = ',osn);
      break;
    end;
  end;
end.
0,0(0 оценок)
Ответ:
hedgehogGreen
15.10.2020 16:52
Const
  problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
  answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
  countOfAnswers, counter: integer;
  userAnswer: String;
begin
  countOfAnswers := 0;
  for counter:=0 to 9 do
    begin
      write('Введите ответ уравнения ', problems[counter], ' : ');
      readln(userAnswer);
      if userAnswer = answers[counter] then Inc(countOfAnswers);
    end;
if countOfAnswers > 8 then writeln('Отлично')
    else if countOfAnswers > 5 then writeln('Хорошо')
    else writeln('Плохо');
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота