xiumin90

24.02.2021 22:27 •  Информатика

1.сколько раз выполняется цикл: for t: =0 to 7 do m: =m+15; 1. 7; 2. 8; 3. 1; 4. ни разу? 2. сколько раз выполняется цикл: for t: = 7 to 7 do k: =k+1; 1. 7; 2. 2; 3. 1; 4. ни разу? 3. сколько раз выполняется цикл: for t: = 5 to 2 do g: =g*g; 1. 5; 2. 2; 3. 1; 4. ни разу? 4.какие значения t и k выведутся на экран в результате исполнения следующего фрагмента программы: t: =0; k: =0; for i: = 2 to 4 do begin t: =t+1; k=k-1: end; writeln (t,k); 1. 3, -3; 2. 4, -4; 3. 2, -2; 4. 0, 0? 5. что находит программа: program prim2; var a,b,c: integer; begin readln(a); b: =a; for c: =1 to 5 do begin readln(a); if a> b hen b: =a; end; writeln(b); end. 1. минимальное значение; 2. количество; 3. меняет переменные местами; 4. максимальное значение? 6.определить значение переменной m после выполнения фрагмента программы: x: =1; m: =0; while x< =3 do begin m: =m+x; x: =x+1; end; 1. 2; 2. 3; 3. 6; 4. 4? 7. какой фрагмент программы вычисляет значение функции y=x2+1 на промежутке [0; 5] с шагом 0,5 1. x: =0; if x< =5 then begin y: =x*x+1; x+x+0.5 end; 2. x: =0; while x< =5 do begin y: =x*x+1; x: =x+0.5 end; 3. while x< =5 do begin x: =0; y: =x*x+1; x: =x+0.5 end; 4. x: =0; while x< =5 do y: =x*x+1; x: =x+0.5? 8.какие значения получат переменные a и b после выполнения фрагмента программы: a: =0; b: =12; while b-a> 2 do begin a: =a+2; b: =b-2; end; writeln(a,b); 1. 6, 6; 2. 2, 10; 3. 4, 8; 4. 0, 2? 9.определить результат вывода на экран значения r в фрагменте программы: r: =1: p: =1; repeat r: =r*p; p: =p+1; until(p> =5); writeln(r): 1. 1; 2. 5; 3. 120; 4. 24. 10. какие значения m и n должны вводиться, чтобы на экран после исполнения фрагмента программы вывелось число 12? readln(m,n); repeat if m> n then m: =m-n else n: =n-m; until(m=n); writeln(m); 1. 12, 18; 2. 54, 12; 3. 48, 24 4. 24, 36.