1. определите значение переменной «a» после выполнения фрагмента программы: a : = 10; if a < 5 then a : = 5; 2. определите значение переменной «a» после выполнения фрагмента программы: a : = 10; if a > 5 then a : = 12; 3. определите значение переменной «a» после выполнения фрагмента программы: a : = 10; if a < 5 then a : = a + 12 else a : = a - 7; 4. определите значение переменной «a» после выполнения фрагмента программы: a : = 10; if a < 15 then a : = a + 12 else a : = a - 7; 5. определите значение переменной «a» после выполнения фрагмента программы: a : = 10; if a < 5 then a : = a + 12 else a : = a - 7; if a < 5 then a : = a + 12 else a : = a - 7; 6. определите значение переменной «a» после выполнения фрагмента программы: a : = 10; if a > 5 then a : = a + 12 else a : = a - 7; if a > 5 then a : = a + 12 else a : = a - 7; 7. определите значение переменной «a» после выполнения фрагмента программы: a : = 10; b : = 3; if a > b then b : = b + 12 else a : = a - 7; if a > b then a : = a + 12 else a : = a - 7; часть 2 1. дано целое число. определить является ли оно четным. 2. даны два числа. замените меньшее из двух чисел их суммой, а большее произведением этих чисел. 3. дано двузначное число. определите, входит ли в него цифра 6.

250

478

Посмотреть ответы 2

Ответы на вопрос:

liza1430

Информатика

4,7(42 оценок)

1. 10 2. 12 3. 3 4. 22 5. 15 6. 34 7. 3 часть 2 1. var n: integer; begin write('введи число '); readln(n); if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное); end. 2. var a,b: integer; begin write('введи числа '); readln(a,b); if a> b then begin write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b); end. 3. var n: integer; begin write('введи двузначное число '); readln(n); if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе'); end.

гость162

Информатика

4,7(75 оценок)

Const k = 33; var a: array[1..k] of integer; i,m,n: integer; begin for i: = 1 to k do begin a[i]: =random(21)-10; write(a[i],' '); end; writeln; m: =a[1]; n: =0; for i: = 2 to k do if a[i]< m then m: =a[i]; for i: = 1 to k do if a[i]=m then n: =n+1; writeln('количество минимальных элементов: ',n); write('номера минимальных элементов: '); for i: = 1 to k do if a[i]=m then write(i,' ') end. пример: 5 0 5 -5 -5 -4 -7 -9 9 8 -4 6 -4 -9 2 -5 -9 4 6 -8 -4 -1 1 -8 -8 -3 -4 2 -9 1 5 -4 -2 количество минимальных элементов: 4 номера минимальных элементов: 8 14 17 29