dearmaria
?>

Решить, , : 1.используется оператор for i: = 1 to 30 do… после завершения выполнения тела цикла i = 2.укажите, сколько раз будет выполнен цикл for i : =-1 to 2 do a: =a+1; а) 2 б)бесконечно в)0 г)3 д)4 3.используется оператор for i: = 5 to 36 do… при первом выполнении тела цикла i = . 4.определите, какое значение будет выведено на экран в результате выполнения ниже последовательности операторов: a: =1; b: =1; while a> =b do b: =b+a; a: =a+1; write(b*a) а)12 б)15 в)4 г)1 д)20 5.чему равно значение переменной s после выполнения следующего фрагмента программы: s: =0; for i: =0 to 5 do s: =s+1; а)6 б)15 в)0 г)5

Информатика

Ответы

Андрей Шитенкова
Const n=10;   var a: array[1..n] of integer; i,k1,k2: integer;   begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   a[i]: =random(21)-10;   write(a[i],'   ');   end; writeln; k1: =n; while (k1> 0)and(a[k1]> =0) do k1: =k1-1; k2: =k1-1; while (k2> 0)and(a[k2]> =0) do k2: =k2-1; if (k1< > 0)and(k2< > 0)    then writeln(k1-k2-1) else writeln('в массиве нет 2 отрицательных элементов'); end. пример: исходный массив: 9 0 2 7 -6 9 2 3 -4 10 3
Anna_Kamil
Var a,b,c : integer; begin write('a=');   readln(a); write('b=');   readln(b); write('c=');   readln(c); if (a+b< =c)or(a+c< =b)or(b+c< =a)   then writeln('треугольника не существует')   else if (a< > b)and(b< > c)and(a< > c)         then writeln('треугольник разносторонний')         else if (a< > b)or(b< > c) then writeln('треугольник равнобедренный')                                 else writeln('треугольник равносторонний'); end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Решить, , : 1.используется оператор for i: = 1 to 30 do… после завершения выполнения тела цикла i = 2.укажите, сколько раз будет выполнен цикл for i : =-1 to 2 do a: =a+1; а) 2 б)бесконечно в)0 г)3 д)4 3.используется оператор for i: = 5 to 36 do… при первом выполнении тела цикла i = . 4.определите, какое значение будет выведено на экран в результате выполнения ниже последовательности операторов: a: =1; b: =1; while a> =b do b: =b+a; a: =a+1; write(b*a) а)12 б)15 в)4 г)1 д)20 5.чему равно значение переменной s после выполнения следующего фрагмента программы: s: =0; for i: =0 to 5 do s: =s+1; а)6 б)15 в)0 г)5
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

clic1968420
ryazantseva
akakne86
krasa28vostok65
uzunanna19922488
Тихонова
Lyalikova
zhmulyov-denis8
benonika
Fedorova_79166180822
Mbkozlov6
amayonova
druzhbamagazin2457
gdmaslo
marinatehnomaster21