1) s:=1*2=2
2)s:=2*2=4
3)s:=4*2=8
4)s:=8*2=16
5)s:=16*2=32
6)s:=32*2=64
7)s:=64*2=128
Ответ: s:=128
<em>// PascalABC.NET 3.2, сборка 1482 от 12.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(3,4,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsWithIndexes.Where(z->z[0]<0);
if s.Count=0 then Writeln('Нет отрицательных элементов')
else begin
Write('Отрицательные элементы: ');
s.Select(x->Format('a[{0},{1}]',x[1]+1,x[2]+1)).Println
end
end.
<u>Пример</u>
*** Исходный массив ***
-62 13 -44 78
-19 73 92 -61
47 -13 3 43
----------------
Отрицательные элементы: a[1,1] a[1,3] a[2,1] a[2,4] a[3,2]
Var n, s, a, p, v:integer;
begin
write('N = '); readln(n);
s:=n div (3*4*4);
a:=(n mod (3*4*4)) div (4*4);
p:=(n mod (4*4)) div 4;
v:=n mod 4;
writeln('s = ',s,' a = ',a,' p = ',p,' v = ',v);
end.
Пример:
N = 2061
s = 42 a = 2 p = 3 v = 1
Program z3; Var y: array [1..15] of real; g: array [1..20] of real; i,d, a,b: integer; sum, sum_2: real;Begin writeln('Введите оплату труда за день'); read(d); a:= 0; b:= 0; for i := 1 to 15 do begin y[i] := random (30); if (y[i] < 10) then a:= a + 1; y[i] := y[i] * d * 0.8; end; for i:=1 to 20 do g[i] := random (30); if (g[i] < 10) then b:= b + 1; g[i] := g[i] * d * 0.8; for i:=1 to 15 do begin writeln('Сотрудник y_',i,' - ',y[i]); sum:= sum + y[i]; end; writeln; writeln('Сумма отдела y - ', sum); writeln; for i:=1 to 20 do begin writeln('Сотрудник g_',i,' - ',g[i]); sum_2:= sum_2 + g[i]; end; writeln; writeln('Сумма отдела g - ', sum_2); writeln; writeln('В отделе y ', a, ' сотрудников работало меньше 10 дней'); writeln; writeln('В отделе g ', b, ' сотрудников работало меньше 10 дней'); End.