Количество последовательностей будет равно количеству двоичных чисел, которые можно записать с помощью 5 символов:
2^5=32
Program first;
Var a,k,x,y,n,i:integer;
begin
readln(a,x,k);
n:=0;
while n<k do
begin
y:=a*x;
writeln(y,' ',x);
n:=n+1;
end;
end.
Пробуй ,вроде бы должно работать
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Cуммы и число положительных элементов построчно:');
foreach var r in a.Rows do begin
var s:=r.Where(t->t>0);
Println(s.Sum,s.Count)
end
end.
<u>Пример</u>
Количество строк (столбцов) в массиве: 6
*** Исходный массив ***
-98 -66 14 -63 78 -47
-7 59 -88 -7 6 -13
-89 26 29 78 -79 54
-99 55 -15 45 -14 -58
-59 -68 -93 55 63 -33
-72 -94 42 -89 -86 70
------------------------
Cуммы и число положительных элементов построчно:
92 2
65 2
187 4
100 2
118 2
112 2
Приемной комиссии может?
принять документы, аттестат, заявление и прочее.
добавить фамилию в списки, для вступительных экзаменов.
задачи должна решать:
1. Допускать ли абитуриентов до вступительных экзаменов, исходя из всей имеющейся информации об абитуриенте.
Program n_1;
var a: array [1..30] of integer; i, n: integer;
begin
randomize;
n:=0;
for i:=1 to 30 do begin a[i]:=random(10000); write(a[i], ' '); end;
writeln;
for i:=1 to 30 do if a[i]>a[30] then n:=n+1;
writeln(n);
end.
Ну диапазон если что сами можете подредактировать :D
