Определите, что будет напечатано в результате выполнения программы var c, m, d:Integer; Begin c:=0; m:=132; while m>1 do begin d:=m mod 10; c:= (c+d)*10; m:=m div 10; end; writeln(c); End.
Оператор div отрезает последнюю цифру числа, а mod считает остаток от деления на 2. Если он равен нулю, то выполняется действие M:= M + x mod 10.
Сначала выводится переменная L, в ней содержится счетчик, который считает, сколько раз оператор div отрежет цифру. Отсюда следует, что число должно быть трехзначным. В нашем случае ответом будет число 999, потому что div отрежет последнюю цифру три раза, а условие if x mod 2 = 0 then не будет выполнятся, потому что остаток от деления на 2 числа 999 не равен нулю, программа выведет 0.
1)program test; var a:array[1..12] of integer; i,min:integer; begin for i:=1 to 12 do begin readln(a[i]); a[i]:=abs(a[i]); if i=1 then min:=a[i] else if a[i]<min then min:=a[i]; end; writeln(min); end. 2) uses Crt ; var A : array [ 1 .. 100 ] of integer ; c : integer ; i , j , N : ShortInt ; begin ClrScr ; Write ( 'Количество элементов массива = ' ) ; ReadLn ( N ) ; WriteLn ( 'Ввод массива' ) ; for i := 1 to N do Read ( A [ i ] ) ;
A[i]:=abs(A[i]); WriteLn ; //Сортировка пузырьком// for i := 1 to N - 1 do begin for j := N downto i + 1 do begin if A [ j ] < A [ j - 1 ] then begin c := A [ j ] ; A [ j ] := A [ j - 1 ] ; A [ j - 1 ] := c ; end ;
Как то так, можешь заменить так что бы ракета вверх двигалась. Program raketa; uses graphabc; var i:integer; begin For i:=1 to 300 do begin line (i+300,60,i+240,120); line (i+240,120,i+240,360); line (i+360,120,i+360,360); line (i+240,360,i+360,360); line (i+300,60,i+360,120); line (i+240,210,i+210,240); line (i+210,240,i+240,240); line (i+360,210,i+390,240); line (i+390,240,i+360,240); circle (i+300,150,15); circle (i+300,210,15); circle (i+300,270,15); line (i+240,360,i+180,450); line (i+180,450,i+420,450); line (i+420,450,i+360,360); line (i+330,450,i+330,370); line (i+300,450,i+300,365); line (i+270,450,i+270,370); ClearWindow; end; end. end.
Оператор div отрезает последнюю цифру числа, а mod считает остаток от деления на 2. Если он равен нулю, то выполняется действие M:= M + x mod 10.
Сначала выводится переменная L, в ней содержится счетчик, который считает, сколько раз оператор div отрежет цифру. Отсюда следует, что число должно быть трехзначным. В нашем случае ответом будет число 999, потому что div отрежет последнюю цифру три раза, а условие if x mod 2 = 0 then не будет выполнятся, потому что остаток от деления на 2 числа 999 не равен нулю, программа выведет 0.
ответ: 999