Во Как называется алгоритм, который помимо следования содержит конструкцию ветвления?
Варианты ответов
• Линейный
• Вс Разветвляющийся
• Циклический
Во Какие существуют формы записи условного оператора в языке Pascal?
Варианты ответов
• Развёрнутая
• Полная
• Дополненная
• Сокращённая
Во Выберите условные операторы, записанные в сокращённой форме.
Варианты ответов
• if a>b then begin p:=a; a:=b; end;
• if a>b then max:=a else max:=b;
• if a<>b then write ('не равны') else write ('равны');
• if a<>b then a:=b;
Во Из указанных фрагментов программ выберите тот, который дает ответ на во является ли целое число a чётным или нечётным?
Варианты ответов
• if a mod 2=1 then write ('Нет') else write ('Да');
• if a mod 2=1 then write ('Да');
• if a mod 10=2 then write ('Да') else write ('Нет');
Во Из указанных фрагментов программ выберите тот, который дает ответ на во является ли целое число a положительным?
Варианты ответов
• if a mod 2=1 then write ('Нет') else write ('Да');
• if a >0 then write ('Да');
• if a mod 10=2 then write ('Да') else write ('Нет');
Во Из указанных фрагментов программ выберите тот, который дает ответ на во является ли целое число a трехзначным?
Варианты ответов
• if a mod 2=1 then write ('Нет') else write ('Да');
• if (a >9) and (a<100) then write ('Да');
• if a mod 10=2 then write ('Да') else write ('Нет');
Во Чему будет равно а после выполнения фрагмента программы?
a:=0;
if a<>0 then a:=2
else a:=3;
Во Какое значение примет переменная B при значении А:= - 20, после выполнения фрагмента программы:
if A>=15
then B:=A*2
else B:= A - 10
Варианты ответов
• - 40
• 30
• 20
• - 30
Во Что будет напечатано в результате выполнения следующей программы,
если значение R равно -10?
if R=0 then Y:=R*10;
if R>0 then Y:=R+10;
if R<0 then Y:=R*R/2;
writeln ('Y=', Y)
Варианты ответов
• 0
• 100
• -10
• 50
Вот пример программы на паскале ABC:
var a:array [1..1000000] of integer;
b:array [1..10] of longint;
c:integer;
i,max,n:longint;
begin
write('Введите число элементов массива: ');
readln(n);
max:=0;
for i:=1 to 10 do
b[i]:=0;
for i:=1 to n do begin
a[i]:=random(10)+1;
write(a[i],' ');
b[a[i]]:=b[a[i]]+1
end;
for i:=1 to 10 do if b[i]>max then
begin
c:=i;
max:=b[i]
end;
writeln;
writeln('Чаще всего в массиве встречается число ',c)
end.
2^3 < 10, 3^3 > 20
2) Если x(x+1) > 10, то (x+1)(x+2) < 10. Это верно при x = -4
(-4)(-3) = 12 > 10; (-3)(-2) = 6 < 10
Но при x = 2 будет ложная посылка (2*3 > 10 - это ложно),
из которой следует ложный вывод 3*4 < 10.
Поэтому импликация верна. ответ x = 2
3) Если x(x+1)(x+2) > 25, то x < x-1
Это сложнее. x < x-1 - ложно при любом х.
Импликация будет истинной, только если посылка ложная.
x(x+1)(x+2) > 25 - должно быть ложно. Это при x = 2.
x(x+1)(x+2) = 2*3*4 = 24.