Предскажите, какое содержимое будет находится в переменной s в результате работы программы на Паскале:
var a, b, s, x: integer;begina:=25; b:=5; s:=0;while a<>0 dobeginx:=a mod b; s:=s*10 +x; a:=a div b;writeln (s);end;end.
Предскажите, какое содержимое будет находится в переменной s в результате работы программы на Паскале:
var a, b, s, x: integer;begina:=25; b:=5; s:=0;while a<>0 dobeginx:=a mod b; s:=s*10 +x; a:=a div b;writeln (s);end;end.
var a: string;b, i, st, n, s, x, k:integer;begina:='25'; b:=5; s:=0; st:=1;n:=length(a);for i:=1 to n dobeginval (copy(a,n-i+1,1),x,k); s:=s+x*st; st:=st*b;end;writeln (s);end.
…k:=0;for i:=2 to n-1 do if n mod i=0 then k:=k+1;if k=2 then writeln ('простое')else writeln ('составное');…
В переменную n с клавиатуры вводится значение (n=6). Предскажите результат работы программы (что выведется на экран):
…k:=0;for i:=1 to n-1 do if n mod i=0 then k:=k+i;if k=n then writeln ('совершенное')else writeln ('несовершенное');…
Приведенная программа на Паскале позволяет …
var a, b, s, x: integer;beginreadln (a); readln (b); s:=0;while a<>0 dobeginx:=a mod b; s:=s*10 +x; a:=a div b;end;writeln (s);end.
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива А={1, 2, 3}.
… for i:=1 to n dofor j:=i to n do writeln (A[i], A[j]); …Введите результат вывода программы без пробелов:
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, значение переменной будет равно:
…n:=3; s:=0; k:=1;for i:=1 to n dofor j:=1 to n dobeginx[i,j]:=k; k:=k+1;endfor i:=1 to n dofor j:=1 to n doif (i<=n-j+1) then s:=s+x[i,j];…
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в переменной M будет находиться:
…j:=0; m:=1; n:=10;for i:=1 to n do x[i]:=i;for i:=1 to n do begin if x[i] mod 3=0 then begin j:=j+1; y[j]:=i; end; end;for i:=1 to j do m:=m*x[y[i]]; …
Определите содержимое переменной в результате работы программы на Паскале, фрагмент которой приведен ниже:
… for i:=1 to 5 do a[i]:=i-6;m:=a[1];for i:=1 to 5 do if a[i]>m then a[i]:=m;…
Определите содержимое переменной в результате работы программы на Паскале, фрагмент которой приведен ниже:
… for i:=1 to 5 do a[i]:=i-6;m:=0;for i:=1 to 5 do if a[i]>m then m:=a[i];…