Какое значение переменной S будет напечатано после выполнения фрагмента программы на Бейсике?
10-11 класс
|
S=1
For N=1 To 3
S=S*N
Next N
Print S
1 цикл. 1*1=1
2 цикл. 1*2=2
3цикл.2*3= 6
ответ. 6
Другие вопросы из категории
Написать программу для определения наименьшего из чисел, составленных из цифр данных чисел. Незначащих нулей в найденном числе быть не должно.
Формат входных данных:
Входной файл INPUT.TXT содержит два натуральных числа N (10N10100) и M (10M10100), разделенных одним пробелом.
Формат выходных данных:
Выходной файл OUTPUT.TXT должен содержать найденное наименьшее число.
Читайте также
a := 3 + 3*4;
b := (a div 10) + 4;
a := (b mod 10) + 2;
b:= a + b;
a:= a mod 2 + b div 3;
1) a=4, b=14;
2) a= 24, b= 6;
3) a=5, b=12;
4) a=8, b=12.
А2. Для какого из указанных значений числа X истинно высказывание
((X < 5)→(X < 3)) Ù ((X < 2)→(X < 1))
1) 1
2) 2
3) 3
4) 4
А3. Укажите, какое логическое выражение равносильно выражению ¬(A Ú ¬B Ú C) ?
1) ¬A Ú B Ú ¬C
2) A Ù ¬B Ù C
3) ¬A Ú ¬B Ú ¬C
4) ¬A Ù B Ù ¬C
X
Y
Z
F
1
1
1
1
1
1
0
1
1
0
1
1
А4. Символом F обозначено одно из указанных ниже логических выражений от трех аргументов: X, Y, Z. Дан фрагмент таблицы истинности выражения F (см. таблицу справа).
Какое выражение соответствует F?
1) X Ú ¬Y Ú Z
2) X Ù Y Ù Z
3) X Ù Y Ù ¬Z
4) ¬X Ú Y Ú ¬Z
А5. Что будет выведено на печать в результате выполнения следующих операторов:
a := 5; b := 10;
write( 'сумма двух чисел ' ); write( 'a+b' );
write( ' = ', a+b );
1) сумма двух чисел 5+10 = 15
2) сумма двух чисел a+b = 15
3) сумма двух чисел 5+10 = a+b
4) сумма двух чисел a+b = 5+10
5) ни один из ответов 1-4 не верен
А6. Чему было равно значение переменной a, если после выполнения операций
b := sqrt( sqr(a+1) );
c := -b;
a := 1 + 2 / (c-b);
она стала равна 0 ?
1) 2
2) 0
3) –1
4) любое вещ. число, не равное -1
5) ни один из ответов 1-4 не верен
А7. Чему будет равно значение А после выполнения цикла
а:=1024;
While a>0 do
a:=a / 2;
1) 0
2) 1
3) зациклится
4) 512
5) ни один из ответов 1-4 не верен
A8. Сколько раз выполнится тело цикла?
A:=32;
While A>2 do
Begin A:=A / 2; writeln(‘A’); end;
1) 8
2) 6
3) 5
4) 4
5) 3
0.1E + 05, -33.3E - 4, 25.5E + 0?
Запишите по правилам языка Паскаль такие выражения:
a) 1.5 + 2 (x^2 + bx)
b) 3(x + 5) - x^3
_____________
2x^2 + x
Вычислить значения выражений :
a) 125 mod 30
b) 20 div 6 mod 5
Записать выражения в общепринятой форме:
a) (-2*b+3*b-4*a*c)/3*a
Пусть a, b: integer, c: real. Определите тип выражения (целый или вещественный) :
a) a/b
b) a + b
c) a + c
Чему равны значения переменных x и y после выполнения команд: x:=2 ; y:=5 ; y:=x ; x:=x+1?
Решите, пожалуйста, хоть одно какой-нибудь задание. СРОЧНО НУЖНО!
int[] mas = new int [] {-1, 0, 2, -8, 4, -9, 3, -4, 9, -3 };
int i = 0;
while (mas[i] < 0)
{ i++; Console.WriteLine(mas[i]);}
//24.Определить что будет напечатано в результате выполнения фрагмента программы:
int[] mas = new int[] { -1, 0, 2, -8, 4, -9, 3, -4, 9, -3 };
int i = 5;
do i--; while (mas[i] > 0);
Console.WriteLine(i);
//25.Определить что будет напечатано в результате выполнения фрагмента программы: int[] mas = new int[] { -1, 0, 2, -8, 4, -9, 3, -4, 9, -3 };
int k = 0; foreach (int el in mas)
if (el > 0) k+=el;
Console.WriteLine(k);
х := 19;
a:=1819
b:=(a div 100)*10+9
a:=(10*b-a) mod 100