ДАЮ 34 БАЛЛА!!!! ПОМОГИТЕ!1. Определите значение переменной «a» после выполнения фрагмента программы: { a = 16; if ( a < 5 )
ДАЮ 34 БАЛЛА!!!! ПОМОГИТЕ! 1. Определите значение переменной «a» после выполнения фрагмента программы: { a = 16; if ( a < 5 ) a = 5; } *
Мой ответ 2. Определите значение переменной «a» после выполнения фрагмента программы: {a = 5; if ( a >= 5 ) a = 18;} *
Мой ответ 3. Определите значение переменной «a» после выполнения фрагмента программы: {a = 8; if ( a < 5 ) a = a + 18; else a = a - 9;} *
Мой ответ 4. Определите значение переменной «a» после выполнения фрагмента программы: {a = 10; if ( a < 15 ) a = a - 12; else a = a +7;} *
Мой ответ 5. Определите значение переменной «a» после выполнения фрагмента программы: {a = 10; if ( a < 5 ) a = a - 12; else a = a + 7; if ( a < 5 ) a = a -12; else a = a + 7;} *
Мой ответ 6. Определите значение переменной «a» после выполнения фрагмента программы: {a = 10; if ( a < 5 ) a = a + 12; else a = a - 7; if ( a < 5 ) a = a + 12; else a = a - 7;} *
Мой ответ 7. Определите значение переменной «a» после выполнения фрагмента программы: {a = 18; b = 5; if ( a > b ) b = b + 12; else a = a - 7; if ( a > b ) a = a + 12; else a = a - 7;} *
{Pascal} var a:array[1..100] of integer; b:array[1..100] of integer; c:array[1..200] of integer; i, n, m: integer; begin write('Размер массива A: '); readln(n); write('Размер массива B: '); readln(m); writeln('Массив A:'); for i:=1 to n do begin write('A[',i,'] = '); readln(a[i]); end; writeln('Массив B:'); for i:=1 to n do begin write('B[',i,'] = '); readln(b[i]); end; for i:=1 to n do c[i]:=a[i]; for i:=n+1 to n+m do c[i]:=b[i-n]; writeln('Массив C:'); for i:=1 to n+m do write(c[i]:4); end.