Program n1;
Uses CRT;
Const n=20;
Var a: array[1..n] of integer;
i: integer;
begin
ClrScr;
Writeln('Vvedite massiv');
For i:=1 to n do
readln(a[i]);
For i:=1 to n do
If a[i]<0 then a[i]:=a[i]*(-5)
else if a[i]>0 then a[i]:=a[i]*20
else a[i]:=1000;
For i:=1 to n do
write(a[i]:5);
readln
end.
A-B-F= 10 вроде так все будет, если в таблице не ошибся
Var a,k:integer;begink:=0;readln(a);
while a<>0 do
begin
k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
2 8 5 7 0
k = 4
1) задание
193.24.11.127
DFE
N - это счетчик, показывающий количество проходов по циклу.
А цикл выполняется до тех пор, пока s не превысит 256.
s = 25×n, тогда 25n ≤ 256 → n=10.24, т.е. n=11
Ответ: 11