Дана последовательность,которая состоит из 0 и единицы,переместите в начало последовательности все нули,а затем все еденицы.напишите на языке паскаль,и можно ли без рандома,чтоб понятно была на школьном уровне,заранее
Enter - ввод. Она предназначена для того, чтобы опускать текст ниже и переходить на следующую строку. shift обычно используется для написания заглавных букв. Кнопка Delete служит для удаления. esc Полное ее название Escape (произносится «Эске́йп») и означает она «Выход». При этой кнопки мы можем закрыть некоторые программы. В большей степени это касается компьютерных игр. Кнопка Insert нужна для того, чтобы печатать текст поверх уже напечатанного. Если Вы нажмете на эту клавишу, то новый текст будет печататься, стирая старый. Чтобы это отменить, нужно снова нажать на клавишу Insert. Backspace — клавиша на клавиатуре компьютера, служащая для удаления символа (символов), находящегося перед курсором (слева при направлении письма слева направо или справа при направлении справа налево). Вне области набора текста ← Backspace часто служит для возврата на предыдущий экран программы или веб-страницу в браузере.
9) Запишите значение переменной s, полученное в результате работы следующей программы на языке программирования Паскаль. Var s, i:integer; Begin S := 3; For i := 2 to 5 do S := S + 2*i; Writeln(S); end.
10) В таблице Sea хранятся данные о количестве россиян, отдыхавших на Черном море (Sea[1] - число россиян в 2001 году, Sea[2] - в 2002 и т.д.). Определите, какое число будет напечатано в результате работы следующей программы, написанной на языке программирования Паскаль. Var k, s: integer; Sea: array [1..12] of integer; begin Sea[] := 170; Sea[2] := 170; Sea[3] := 190; Sea[4] := 210; Sea[5] := 230; Sea[6] := 220; Sea[7] := 240; Sea[8] := 160; Sea[9] := 190; Sea[10] := 210; Sea[11] := 170; Sea[12] := 170; s := 100; For k := 1 to 12 do if Sea[k] > 220 then begin s := s + Sea[k]; end; Writeln(s); end.
5) Дан фрагмент электронной таблицы, в первой строке которой записаны числа, а во второй – формулы. СМ во вложение.
program zadacha;
var
a: array[1..1000] of byte;
i,j,n,k:integer;
begin
writeln('vvedite kol-vo elementov massiva');
readln(n);
writeln('vvedite elementi massiva');
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=1 to n-1 do
if a[j]>a[j+1] then begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
write('massiv posle sortirovki:');
for i:=1 to n do
write(a[i]:4);
writeln;
end.